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Fast code. 

SpontaneousAssemhlty 

ASSEMBLY LANGUAGE LIBRARY 



Absolutely nothing matches the speed and efficiency of assembly 
language. And nothing lets you code in assembly as fast as 
Spontaneous Assembly , the complete assembly language library. 
With MASM 5.1 or TASM, Spontaneous Assembly makes programming 
in assembly as fast and easy as coding in a high-level language— 
without the overhead. 
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routines at your fingertips, including • A complete high-speed 
windowing system (4.5K) • Near/far/relative heap management 
(650 bytes) • Direct/BIOS/DOS screen I/O (2.5K) • Array management, 
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• Program and environment 
control • Enhanced DOS 
file I/O • File and directory 
management • String and 
memory manipulation • Full 
Microsoft/Borland memory 
model support • and much 
more—all royalty-free. 


Clear, complete documentation. 

A 750 page reference manual describes every function, macro, and 
variable in detail. Step-by-step instructions and technical notes explain 
integration with C, library customization, memory models, and more. 

Full source code. Toll-free support. 
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assembly language source code. And toll-free support is available to 
all registered customers. 
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See for yourself just how fast and easy assembly language programming 
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1-800-ASSEMBLY (1-800-277-3625) to order direct. Then try it for 30 days. 
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ORDERS • INFORMATION • SUPPORT 
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C CODE FOR THE PC 

source code, of course 

NE W! Professional IDL (interface generator for complex data; multiple inheritance, ASCII and binary external forms, tools).$400 

M++ (fast C++ math classes; indexing, matrices & vectors, numerics, memory handling, I/O; specify C+ + compiler/Ibrbo, Zortech, Glock.) $395 

C++/Views (C++ interface to MS Windows 3.0; over 60 classes; free broswer (no source); no royalties; Zortech C++ only) .$395 

NEW! Embedded DOS (full-features, real-time, multitasking, 3.31-compatible DOS for embedded system and self-bootable installations).$375 

NE W! Spell Time (spelling checker for incorporation into text products; no royalty; large dictionary; small and fast).$300 

ZIP Image Processor & Victor Image Library Version 2.0 (brightness, contrast, merge images, nFE/GIF/PCX/bin, HP ScanJet support) . . $290 

TurboTE^C (Release 3.0; HP, PS, dot drivers; CM fonts; LaljjX; MetaFont).$250 

db-File & db-Retrieve Bundle by Raima (B-tree and network database with SQL query and report writer, multi-user $475).$245 

TE Editor Developer’s Kit for Windows (full screen editor, undo command, multiple windows; inc. TER for application build-in; no royalties) $220 

NEW! c-pslib ^PostScript generation library for C programs; includes complete graphics, font, rotation & paragraph support.$170 

Report Right (report writer and graph generator for Windows 3.0).$170 

Rogue Wive tools.h++ or math.h++ Class Libraiy (extensive docs).each $165 

DXF Subroutine Libraries (toolkit for making AutoCAD DXF drawing files; includes manual & sample programs).$155 

WKS Library Version 2.01 (C program interface to Lotus 1-2-3, dBase, Supercalc 4, Quatro, & Clipper) .$155 

Minix Operating System (Version 1.5; Unix-like operating system, includes manual; specify 5.25” or 3.5” diskettes).each $150 

Delorie GCC for MS-DOS (Version 1.39; includes C++, assembler & DOS extender; complete source code and makefiles).$150 

NEW! CDB for Windows (database toolkit; ISAM, DDL, relational & network, space reuse, concurrent access; fast, manual, no royalty).$145 

CBTree (B+tree ISAM driver, multiple variable-length keys) .$135 

TE Editor Developer’s Kit (full screen editor, undo command, multiple windows; with word processing: $195; Windows 3.0: $200).$130 

C Communications Tbolkit by Magna Carta (multi-port & co-processor board support, FAX, interrupt driven, emulations, xfer protocols) . . $125 

C++ Object Library (virtual windows, I/O, lists, file free space management, keyed ISAM file I/O).$125 

Booter Toolkit (floppy disk bootstrap routines, DOS file system, light-weight multitasking, windows, fast memory management) .$120 

NEW! V64 (virtual/extended memory management library, 64Mb address space, fast, direct access to any byte, checkpoint/restart from file) .... $120 

WinMem (unlimited global memory handles for Windows 3.0,4-byte overheadper block rather than 20, virtual memory for 286).$110 

Network Toolbox/N (C functions for Novell Netware 2.1x, sample programs included).$110 

NEW! SCM (portable Scheme in C, conforms to IEEE and 3.99 specs, garbage collection off C stack for easy mixing with C).$100 

Updated! PC/IP (CMU/MIT TCP/IP for PCs; Clarkson drivers, SOSS NFS server, Bdale mailer, PCRoute & PCBridge, NDIS, ODI, Beholder, more) . $100 

NEW! Volks Windows (simple graphical interface to DOS file system; copy, launch programs, move files, etc.).$100 

NE W! Heapman (application memory management for Windows 3.0; 64K bytes of heap space; includes memory browser/debugger) .$100 

NEW! EZJri eve (Novell Btrieve access with data dictionary and data manager; no royalties).$100 

NEW! CDB for DOS & Unix (database toolkit; ISAM, DDL, relational & network, space reuse, concurrent access; fast, no manual, no royalty) . . . $95 

PowerSTOR (Version 1.2; extended heap space on extended memory, expanded memory, and/or hard disk).$95 

MIRACL Multiprecision Integer & Rational Arithmetic C Library (nearly 100 functions; C & C+ +; from Ireland).$90 

VMEM (virtual memory manager by Blake McBride, Version 3.6, LRU pager, dynamic swap file, image save/restore).$80 

NE W! cbase (C database library, sequential & b+ -tree random access, buffered block I/O, file-level locking).$75 

NEW! UeeDraw (PostScript display of labeled hierarchical trees; DOS & Windows screen display included; Moen algorithm).$75 

COMM-DRV (interrupt-driven serial communication, device drivers & serial port monitors; source for libraries only; complete source $200) . $75 

FlexList (doubly-linked lists of arbitrary data with multiple access methods; specify C or C++).each $65 

Foundations-1 C++ Class Library (ASCII record I/O, bit arrays, exception handling, B-tree, persistent objects).$60 

Coder’s Prolog (Version 3.0; inference engine for use with C programs).$60 

FinanC (large collection of financial function includingbond, inventory, stock portfolio, & cash flow).$55 

Pascal P-Code Compiler & Interpreter or Pascal-to-C Translator (Level 0 ISO standard Pascal with some Level 1 features) .each $50 

CALC (ASCII algebraic expression evaluator, unlimited parenthesis nesting, symbols, 32 built-in functions, easily extended).$50 

NE W! Mini IDL (interface generator for complex data; single inheritance, translator & table generator tools, ASCII external form only)).$50 

Backup & Restore Utility by Blake McBride (multiple volumes, file compression & encryption).$50 

NE W! TILE Forth (32-bit Forth-83 in Q lots of extensions including multi-tasking & classes/instances;link in C routines; DOS & Unix).$50 

Floppy TAR (TAR backup and restore on MS-DOS devices; direct access to non-standard devices) .$50 

C Compiler Pack (5 C compilers; 3 for 8086 (gcc, MicroC, Small C), 2 for 68000 (Sozobon, cc68); gcc ports include library source only) . . . $50 

GNUish MS-DOS (ports of 17 GNU programs to MS-DOS organized by Thorsten Ohl).$50 

SuperGrep (exceptionally fast, revolutionary text searching algorithm; also searches sub-directories).$50 

OBJASM (convert .obj files to .asm files; output is MASM compatible) .$50 

YATE (Yet Another Text Editor; written in C++, full-screen).$50 

Updated! CLIPS (rule-based expert system generator, Version 5.0; advanced manuals available at additional cost) .$50 

NIH Class Library & Book(basicC++ classes & Data Abstraction and Object-Oriented Programming in C + + in softback by Keith Gorlen) . $50 

Upgrade! Editor Pack (fifteen public domain editors; including microEmacs 3.11, Stevie, Elvis, Moke, mg2a, DTE, Jove, & Origami) .$50 

Kier DateLib (all kinds of date manipulation; translation, validation, formatting, & arithmetic).$45 

DES Encryption & Decryption (2500 bits/second on 4.77 MHz PC for on-the-fly encryption at 2400 baud; domestic distribution only) .... $40 

RXC & EGREP Version 2.0 (Regular Expression Compiler and Pattern Matching; finite state machine from regular expression).$35 

Bison & BYACC (YACC workalike parser generators; documentation; no restrictions on use of BYACC output).$35 

PC-XINU (Comer’s XINU operating system for PC)...$35 

Spell Pack (6 spelling programs, a hyphenator, 2 utility packs and a 60K word list: Ispell, Microsp, Sp, Cspella, Spell, Dawg, Soundex) .... $30 

REGX Plus (search and replace string manipulation routines based on regular expressions).$30 

GNU Awk & Dili for PC (both programs in one package).$30 

Crunch Pack (30 file compression & expansion programs).$30 

Make Pack (eight versions of Make including dmake 3.7, GNU Make, Cake, and Gymake and a makefile maker).$30 

NEW! GNU Ghostscript (Tbrbo C makefile, MS-DOS executable, Paintjet driver, all fonts).$25 

BigNum (portable and efficient arbitrary-precision arithmetic package; hardcopy docs; from France).$25 

NEW! Database Pack (seven databases, simple to complex: BPLUS, AVL, SDB, ID, GDBM, REQUIEM, INGRES89).$25 

String Pack (lots of string routines; C++String class, BAWK, word wrap, fuzzy search, Boyer-Moore, Hypertext, etc.).$25 

NEW! UUPC Pack (UUCP for the PQ UUPC Version 1.11c by Wonderworks and smail/PC Version 2.5 by Stephen C Trier).$25 

PERL for MS-DOS (C, sed, awk, and shell all rolled into one language; includes hardcopy docs).$25 

NEW! Tfcinbol Command Language; add shell programming programming capability to any command line; elegant command line language) . . . $25 

FLEX (fast lexical analyzer generator, new, improved LEX; BSD Veision 2.3.6 with docs) .$25 

Updated! XUSP 2.1 (includes Almy improvements).$20 

GNU Chess (GNU Version 3.1 & Windows Version 1.01; executable included; requires SDK to build; truly beautiful!).$20 

GNU RCS (FSFs version of the Revision Control System; like Unix’s SCCS only better, keeps track of software development).$20 

SDBM (fast, disk-based hash table manager for really laige hash tables; clone of Unix ndbm) .$20 

Unix/386 

NEW! X-Winaows (client & server, shared library, Xlib, executables, XAW etc.; code is diffs on X11R4; TCP or same machine).$200 

Kyoto Common Lisp (Austin flavor, naturally, Version 1.530; includes GCC and Portable Common Loops (PCL)).$140 

GNU Emacs Version 18.55 (includes complete source & executables).$125 

Whffle BBS (interface to UUCP & B or C news; internal forums; files section; external processing; full USENET support).$120 

GNU C Compiler (gcc) Version 1.39 (includes complete source & executables).$100 

ViewComp Spreadsheet (internal termcap; printer output; hardcopy docs). s .$80 

GNU Debugger (gdb) Version 3.5 (includes complete source & executables).$60 

Gillespie Pascal-to-C (many flavors of Pascal handled; readable & maintainable output).$25 

Gosling Spreadsheet Pack (variants of the 1982 Gosling spreadsheet including PubliCalc and SC version 6.10; 1 MS-DOS variant) .$25 


11100 Leafwood Lane much more ... ask for catalog FAX: (512) 258-13)2 

Austin, Texas 78750-3587 USA E-mail: info@acw.com 

Free surface shipping for cash in advance For delivery in Texas add 7% Master Card/VIS A 
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New Turbo Pascal for Windows 
Don’t Leave DOS Without It! 


Go with Borland, the leader 
in OOP and Windows pro¬ 
gramming, when you’re head¬ 
ing for the Windows frontier. 
With Turbo Pascal® for 
Windows, your Windows 
applications will be faster 
and easier to create. 

Turbo Pascal for Windows 
includes Borland’s new 
ObjectWindows™ application 
framework FREE. So now 
you can develop Windows 
applications fast because they 
automatically inherit code 
for windows, menus, dialogs, 
controls, and more. 

Create Windows 
Applications for Less 

Turbo Pascal for 
Windows gives you 
more and costs you 
less than other 
Windows devel¬ 
opment systems. 

It’s designed exclu¬ 
sively for Windows 
programming, and 
everything you 



need is included in the one low price. You don’t 
need to buy the Microsoft® Windows Software 
Development Kit (SDK). 

Turbo Pascal for Windows is the easiest way 
to make your next program a Windows program. 


See Ybur Dealer Today or Call 
1-800-331-0877 Now. 

Current owners of Turbo Pascal, 
call Borland 
for a special offer!® 


I 


TURBOPASOU 


BORLAND 

The Leader in Object-Oriented Programming for Windows and DOS 


CODE: MF39 


‘Otter good in U.S. and Canada only. Copyright © 1991 Borland Bl 1396 
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From 

The Editor 


Have you ever noticed those “Call for Papers" pages in TECH Specialist and 
wondered who responds to them? It is not college professors or professional 
writers; the respondents are usually working programmers just like you. 
Most of the articles in any given issue of TECH Specialist are written by 
programmers turned first-time authors. If you spend a significant number of 
waking hours writing code for the PC, you fit the profile of a TECH Specialist 
author. 

If you request a copy of our Author Guidelines, you get several pages of 
detailed information about the process of becoming an author. Probably the 
most important tip is to send a proposal first. That gives you an early in¬ 
dication of whether your idea is on the right track or not. A proposal 
doesn’t have to be fancy, just a paragraph or two that covers the main 
points your article would cover. Some people send in several potential ideas 
in one letter. 

Can’t think of any ideas whatsoever? Maybe you are an expert user of an 
interesting commercial programming tool and could write a User Report. 
Don’t have time to write even a small article? How about a TECH Tip. All 
programmers come up with those small, clever solutions to everyday 
problems. All you need is a couple of paragraphs explanation, the code, and 
a postage stamp. We pay $50 for the ones Leor selects for publication. 

Why should you spend your valuable spare time writing a magazine 
article? First, it is exciting to see your name in print (doesn’t hurt your 
resume, either) and know that your article is in the hands of about 19,000 
other programmers. Second, by sharing code or hard-earned information, 
you can help a lot of other programmers facing similar problems. Last but 
not least, you get paid. Not enough to buy that fully tricked ’486 system, 
but probably at least enough to buy that other 2Mb of RAM so Windows 
will stop thrashing your disk. 

Well, I have appealed to your ego, your altruism and your greed. Send 
me a proposal and let me know which approach was successful. 

Ron Burk 
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Making CUA-Compliant MLEs 

Brian Wyld 


When you use a multiline edit control in a Windows dialog box you 
find a strange problem: pressing the Enter key does not move the cur¬ 
sor to the next line! Instead, it "presses" the default button (commonly 
OK), with whatever effect that has. Also, pressing the Tab key does not 
move the cursor to the next tab stop - it moves the focus to the next 
control in the dialog. This behavior only occurs when the edit control is 
part of a dialog box, not when it is created by a normal window. 

This problem with multiline edit controls and the Enter and Tab keys 
is not a bug, but a feature! Windows 3.0 treats Enter as the default 
button in a dialog box, and Tab as the move-focus-to-next-control opera¬ 
tion. To move to the next line in a multiline edit control, you must press 
Ctrl-Enter. This article explains how to change the behavior of the 
Enter and Tab keys by subclassing edit controls. 


Brian Wyld is a Development Engineer at Spider Systems, one of 
Europe's leading independant companies in Local Area Networks. He 
joined Spider in 1989 after graduating from Heriot-Watt University with a 
MEng in Electrical and Electronic Engineering. 
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Subclassing Edit Controls 

You can alter the behavior of a standard Windows control 
by changing the window procedure for that control. Controls 
are just windows after all, so they have a window callback 


function like other windows. Most of the time, you never 
bother about it, as the Windows kernel provides the code to 
make the control do what it should. 

Subclassing (putting your own callback function in place of 
the default Windows callback function) is a handy method for 


Listing 1 (test.c) 


/* test from to show use of Multi Line Edit Controls using */ 
/* RETURN and TAB */ 

#include "windows.h" 

#include "mledit.h" 


HANDLE hInst=NULL; 

HWND hDlgModeless=NULL; 

/* functions */ 


BOOL InitApplication(HANDLE hlnstance); 

BOOL InitInstance(HANDLE hlnstance, int nCmdShow); 

long FAR PASCAL MainWndProc( HWND hWnd, unsigned message, WORD wParam, LONG IParam); 
BOOL FAR PASCAL TestDlg ( HWND hDlg, unsigned message, WORD wParam, LONG IParam); 
BOOL InitMLE(HWND hDialogWnd, int Editld); 

long FAR PASCAL EditWndProc(HWND hWnd, unsigned message, WORD wParam, LONG IParam); 


/* test code to demonstrate the Multiline edit control code */ 


int PASCAL WinMainfhlnstance, hPrevInstance, lpCmdLine, nCmdShow) 
HANDLE hlnstance; /* 

HANDLE hPrevInstance; /* 

LPSTR lpCmdLine; /* 

int nCmdShow; /* 

{ 

MSG msg; /* message 


current instance */ 
previous instance */ 
command 1ine */ 
show-window type (open/icon) */ 


if ([hPrevInstance) /* Other instances of app running? */ 

{ 

if (ilnitApplication(hlnstance)) /* Initialize shared things */ 

return (FALSE); /* Exits if unable to initialize */ 

) 

/* Perform initializations that apply to a specific instance */ 

if (!lnitlnstance(hlnstance, nCmdShow)) 
return (FALSE); 

/* Acquire and dispatch messages until a WM_QUIT message is received. */ 

while (GetMessage(&msg, /* message structure */ 

NULL, /* handle of window receiving the message */ 

NULL, /* lowest message to examine */ 

NULL)) /* highest message to examine */ 

{ 

if (IhDlgModeless || !IsDialogMessage(hDlgModeless, &msg)) 

{ 

TranslateMessage(&msg); /* Translates virtual key codes 

DispatchMessage(&msg); /* Dispatches message to window 

} 


return (msg.wParam); /* Returns the value from PostQuitMessage */ 


*/ 

*/ 


A Simple Test Application 
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altering the standard Windows controls. Every window con¬ 
tains the address of its callback function along with a variety 
of other window attributes. Windows provides functions so 


that you can get and set those window attributes. The 
predefined window attributes reside at defined offsets with 
names starting with GW_ or GUL_ For example, the word 


Listing 1 — Cont’d 

BOOL InitApplication(hlnstance) 

HANDLE hlnstance; /* current instance */ 

{ 

WNDCLASS wc; 

/* Fill in window class structure with parameters that describe the */ 

/* main window. */ 


wc.style = CS_HREDRAW | CS_VREDRAW 
wc.lpfnWndProc * MainWndProc; 


CS DBLCLKS; 


wc.cbClsExtra = 0; 
wc.cbWndExtra = 0; 
wc.hlnstance = hlnstance; 
wc.hlcon = NULL; 

wc.hCursor * LoadCursor(NULL, IDC_ARR0W); 
wc.hbrBackground = GetStockObject(WHITE_BRUSH); 


Function to retrieve messages for */ 
windows of this class. */ 
No per-class extra data. */ 
No per-window extra data. */ 
Application that owns the class. */ 


/* Class style(s). 


wc.lpszMenuName « NULL; /* 
wc.lpszClassName = "AppClass" 
if (!RegisterClass(&wc)) 
return(FALSE); 
return(TRUE); 


Name of menu resource in .RC file. */ 

; /* Name used in call to CreateWindow. 


*/ 


BOOL Initlnstance(hlnstance, nCmdShow) 

HANDLE hlnstance; /* Current instance identifier. */ 

int nCmdShow; /* Param for first ShowWindow() call. */ 

{ 

HWND hMainWnd; 

/* Save the instance handle in static variable, which will be used in */ 

/* many subsequence calls from this application to Windows. */ 

hlnst = hlnstance; 


*/ 

*/ 


/* If window could not be created, return "failure" */ 

if (!hMainWnd) 

return (FALSE); 

/* Make the window visible; update its client area; and return "success" */ 

ShowWindow(hMainWnd, nCmdShow); /* Show the window */ 

UpdateWindow(hMainWnd); /* Sends WM_PAINT message */ 

/* make another modeless dialog box to show the Multiline edit control in */ 

hDlgModeless = CreateDialog(hInst, "MLEditBox", hMainWnd, MakeProcInstance(TestDlg, hlnst)); 

return (TRUE); 


/* See RegisterClassO call. 


*/ 


hMainWnd = CreateWindow( 

"AppClass", 

"Test", /* Text for window title bar. 

WS_0VERLAPPEDWIND0W | WS_CLIPCHILDREN, /* Window style. 

CW USEDEFAULT, CW USEDEFAULT, CW USEDEFAULT, CW USEDEFAULT, 


NULL, 

NULL, 

hlnstance, 

NULL 


); 


/* Overlapped windows have no parent. */ 
/* Use the window class menu. */ 
/* This instance owns this window. */ 
/* Pointer not needed. */ 


} 
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stored at offset GUU_HUNDPARENT is the 
window handle of the parent of this 
window. 


You can access the address of a 
window's callback function by passing 
GetMindowLong () or SetWindowLong() 
an offset of GUL_UNDPROC. Subclassing 


involves putting the address of your 
own callback function into this attribute 
position so that Windows calls it, rather than 
the default callback function. Because it is a 


Listing 1 — Cont’d 


/* main wnd proc - does nothing at all!!! except process WM_DESTROY */ 

long FAR PASCAL MainWndProc( HWND hWnd, unsigned message, WORD wParam, LONG IParam) 

{ 

switch(message) 

{ 

case WMJ3ESTR0Y: 

PostQuitMessage(O); 
return(O); 
break; 

} 

return DefWindowProc ( hWnd, message, wParam, IParam); 

} 

/* dialog box WndProc - only sets up the ML Edit */ 

BOOL FAR PASCAL TestDlg ( HWND hDlg, unsigned message, WORD wParam, LONG IParam) 

{ 

switch(message) 

{ 

case WMJNITDIALOG: 

/* call InitMLE for each Multiline edit control within your dialog box */ 

InitMLE(hDlg, IDC_MLEDIT); /* setup the edit control */ 

/* set focus to it */ 

SetFocus(GetDlgItem(hDlg, IDC_MLEDIT)); 
return(FALSE); /* cause we set focus */ 

break; 

case WM_COMMAND: 

switch(wParam) 

( 

case IDOK: 

PostMessage(GetParent(hDlg), WM_CL0SE, 0, 0L); /* and therefore for parent 

*/ 

DestroyWindow(hDlg); /* done for dialog box */ 

hDlgModeless = NULL; 
return(TRUE); 
break; 


default: 


return(FALSE); 


/* End of File */ 


return(FALSE); 


/* no message processed */ 
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Listing 2 (MLEDIT.C) 


linclude <windows.h> 


long FAR PASCAL EditWndProc( 

HWND hWnd, /* window handle */ 

unsigned message, /* message type */ 

WORD wParam, /* additional information 

LONG IParam /* additional information 


/ 

/ 


); 


/* define names to use with Get/SetProp */ 
#define REALEDITLO MAKEINTRESOURCE(l) 
Idefine REALEDITHI MAKEINTRESOURCE(2) 


/* call to setup an edit control - returns TRUE if OK, FALSE if not */ 

BOOL InitMLE(hDialogWnd, Editld) 

HWND hDialogWnd; /* window han'dle of edit control */ 

int Editld; /* Id of edit control within dialog box */ 

{ 

extern HANDLE hlnst; 

HWND hEditWnd; /* window handle of the MLE */ 

FARPROC lpfnRealEdit; /* the 'real' edit control's WndProc */ 

FARPROC lpfnNewEdit; /* the new edit control WndProc */ 

/* find the edit control's window handle */ 
hEditWnd = GetDlgItem(hDialogWnd, Editld); 
if (!hEditWnd) 
return(FALSE); 


/* subclass edit control to make return work properly */ 

/* store the 'real' WndProc address using properties */ 

/* use properties because a static variable would only */ 

/* work for the case of a single edit control in a single */ 

/* dialog box at one time */ 

lpfnRealEdit = (FARPROC) GetWindowLong(hEditWnd, GWL_WNDPROC); 

if (!SetProp(hEditWnd, REALEDITLO, LOWORD(lpfnRealEdit))) 
return(FALSE); 

if (!SetProp(hEditWnd, REALEDITHI, HIWORD(1pfnRealEdit))) 
return(FALSE); 

/* make the address of the new one */ 

lpfnNewEdit * MakeProcInstance((FARPROC)EditWndProc,hlnst); 

if (!1pfnNewEdit) 
return(FALSE); 


/* and make it the address of the edit control's WndProc */ 
SetWindowLong(hEditWnd, GWL_WNDPROC, (long)1pfnNewEdit); 

/* don't need to store the address of the new proc, cause */ 
/* its in the window long! */ 
return(TRUE); 


/* subclass the edit box in order to make return and tab act as one */ 
/* would expect. The editbox in v3 requires that CTRL-RETURN is */ 

/* pressed to get the "normal" action - BW - 29/5/91 */ 


long FAR PASCAL EditWndProc( 


HWND hWnd, 
unsigned message, 
WORD wParam, 

LONG IParam 
) 


/* window handle */ 

/* message type */ 

/* additional information */ 
/* additional information */ 


Functions for Subclassing Edit Controls 


C TOOLS PLUS/6.0 

Integrate sophisticated features 
into your Microsoft C and QuickC 
applications. 

FROM 

BLAISE COMPUTING 

C TOOLS PLUS version 6.0 is filled 
with many advanced routines for 
developing high-powered C applica¬ 
tions, including: virtual, stackable 
menus and windows with full mouse 
support and optional 
“drop shadows”; multi¬ 
ple virtual pop-up 
help screens; a min¬ 
iature multi-line 
editor for gathering 
user responses in a 
robust fashion; a 
single function call 
which can move, resize, 
and promote a window or 
menu on top of all others; the 
ability to update covered windows 
automatically when they are written 
to; support for EGA, VGA, and 
MCGAtext modes including 30-, 43-, 
and 50-line modes; support for the 
enhanced (101/102 key) keyboard. 

All this and more for only $149! 

C TOOLS PLUS/6.0 also contains 
functions for writing interrupt 
service routines; creating pop-up 
memory resident applications; 
general memory “peeks” and 
“pokes”; access to the DOS PRINT 
utility; as well as many other 
general utility functions and 
macros. 

COMPLETE PROFESSIONAL 
PACKAGE. 

Blaise Computing’s function 
libraries offer easy to use solutions 
to your programming needs. You 
get source code, complete sample 
programs, and a comprehensive 
reference manual with extensive 
examples. Supports QuickC and 
Microsoft C 5.0 and later. 

30 DAY GUARANTEE. 

If during the first 30 days you are 
not completely satisfied, we’ll 
refund your money. 

Other powerful products from 
Blaise Computing Inc. 

Win++ 

Turbo Vision Dev. Toolkit (Pascal) 

Turbo C TOOLS 
C ASYNCH MANAGER 
ASYNCH PLUS 
View232 

Call today for more information 

(800) 333-8087 
BLAISE COMPUTING INC. 


1249 

1149 

1149 

!189 

.189 

>189 





819 Bancroft Way 
Berkeley, CA 94710 
(415) 540-5441 
FAX (415) 540-1938 


Trademarks are 
property of their 
respective holders. 
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^ universal 

Cl ATF Printer 

OLMI L- Driver 


Listing 2 — Cont’d 

NEW! Text & Graphics! 


{ 

FARPR0C lpfnRealEdit; 
long lret; 

By including SLATE, you can 
print both Text and Graphics 
on over 400 printers. 

Immediately! Painlessly! 


char States[265]; 

/* it's 265 cause the ref manual says 265 - */ 

/* but I think its a wee typo and should be 256 */ 

/* - but then again, there's no harm in being safe */ 

You can use SLATE in your 


/* get the real WndProc's address from the property list */ 


lpfnRealEdit = (FARPR0C)MAKELONG(GetProp(hWnd, REALEDITLO), 

product with no royalties. 


GetProp(hWnd, REALEDITHI)); 


switch (message) ( 

Make your product more 


/* Catch KEYD0WN message and pretend that Ctrl is pressed */ 

functional and competitive by 

taking advantage of SLATE’S 

advanced text features: 


case WM KEYD0WN: 

if ((wParam == VK RETURN) || (wParam == VK TAB)) 

{ 

GetKeyboardState (States); 

• Support multiple printers on the same 


States [VK CONTROL] A = 0x80; /* xor state of <CTRL> key */ 

system. 


SetKeyboardState (States); 

• Output to parallel printers, serial 


} 

printers, DOS files, console, DOS 
print spooler, and Novell network 


break; 

printers. 


/* we need to trap WM DESTROY to un-subclass the control */ 

• Support proportional fonts laser 


case WM DESTROY: 

{ 

FARPROC lpfnNewEdit; 

/* get the address of this WndProc */ 

printer soft fonts. 


• Set exact print positions. 


You can add the NEW Graphics 
Subsystem for advanced 


lpfnNewEdit = (FARPROC)GetWindowLong(hWnd, GWL WNDPROC); 

/* replace it with the 'real' WndProc */ 

SetWindowLong(hWnd, GWL WNDPROC, (long)lpfnRealEdit); 

graphics features: 


/* free the procinstance for this WndProc */ 

• Print images from the screen, graphic 


FreeProcInstance(lpfnNewEdit); 

files, or custom image systems. 


/* and clean up the property list */ 

• Scale and Rotate the printed image. 


RemoveProp(hWnd, REALEDITLO); 

• Convert colors to patterns. 

• Print grey scale (shaded) and color 


RemoveProp(hWnd, REALEDITHI); 
break; 

} 

images. 


default: 

• Intermix text and graphics. 

What is SLATE? 


break; 

) 

/* now call the window proc */ 

lret = CallWindowProc(lpfnRealEdit, hWnd, message, wParam, IParam); 

SLATE is a set of C libraries 


/* now make sure the Ctrl is removed */ 
switch (message) { 

with over 150 text printing 


/* Clear pretend Ctrl as soon as done 

functions, a Database of over 


call for TAB */ 

400 printers, and tools for end 


case WM_KEYD0WN: 

user configuration and testing. 


if (wParam =■ VK TAB) 

f 

SLATE with Graphics adds 


GetKeyboardState (States); 

States [VK CONTROL] A = 0x80; 

over 60 graphic printing 


SetKeyboardState(States); 

functions. 


} 



break; 

Call now for more information. 


/* Clear pretend Ctrl when get WM KEYUP (WM KEYD0WN 

Order SLATE for $299 or 


and WM KEYUP translate to WM CHAR) */ 

SLATE with Graphics for 
$448 with our risk free, 30 day 


case WM CHAR: 

if (wParam == VK RETURN) 

{ 

return policy. 


GetKeyboardState (States) ; 

We accept Visa, Mastercard, COD's or 


States [VK_C0NTR0L] A = 0x80; 

PO's from qualified companies. Source 


SetKeyboardState (States); 

code, maintenance, and site licenses 
are available. Also ask for information 


} 

break; 

about our S.PRINT Text Formatting 
System for Software Developers. 


default: 

break; 

} 

return (1 ret); 

} 

800-346-3938 


The po Box 26195 


/* End of File */ 

C» rfYiimpti 1 ! r Columbus, OH 43226 
“ 1IIleU } 614-431-2667 
liI'OUp FAX 614-431-5734 
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window attribute, not a window class 
attribute, only the window you specify 
is affected. If you modified the window 
class attribute, that would affect all edit 
controls created from that point on. 

To change the behavior of the Enter 
or Tab key, you only want to alter a 
very small amount of the behavior of 
the control. You certainly do not want 
to have to reinvent all the code in the 
default edit control callback function 
that handles things like cursor move¬ 
ment, scrolling, character insertion and 
deletion, and so on. The solution is to 
make your new callback function call 
the previous callback function when it 
receives messages it is not interested 
in. In this case that is nearly every mes¬ 
sage! 

Changing Key Behavior 

The subclassing callback function 
here needs to fool the dialog box code 
into thinking that when you pressed 
Enter in the edit control, you actually 
pressed Ctrl-Enter and vice versa (and 
also for Tab). This reverses the actions 
of the Ctrl key, but only within the 
multiline edit control. 

To fool the dialog box in this way, 
the callback function must check for 
WM_KEYDOWN messages. Before passing 
the UM_KEYDOWN message on to the pre¬ 
vious callback function, the new 
callback function inverts the status of 
the Ctrl key. Therefore, when the Ctrl 
key is down, Windows will think it is 
up, and vice versa. Of course, you need 
to do this only when the other key 
pressed is either Enter or Tab, or you 
will break the usual key presses too. To 
invert the status of the Ctrl key, you 
call GetKeyboardState() and Set- 


KeyboardState() to alter the state of 
the keyboard. 

An Implementation 

Looking at the sample code in Listing 
1 (TEST. C), you can see that the test 
program simply creates a main window 
that does nothing, and a modeless 
dialog box containing a multiline edit 
control and an OK button (Figure 1). The 
useful code is in Listing 2 ( MLEDIT.C). 
TestDlgO, the dialog box window pro¬ 
cedure, calls InitMLE() when the 
WM_INITDIALOG message arrives. Init- 
Mle() subclasses the edit control. The 
parameters are the dialog box's window 
handle, and the ID of the edit control 
within the dialog box to subclass. This is 
all the dialog box procedure has to do 
to get the edit control to change its be¬ 
havior. You have to call InitMLE() once 
for each edit control you want to alter. 

InitMLEf) first finds the window 
handle of the edit control. It then stores 
the address of the previous window 
callback function as a window property 
(described later) and replaces it with 
the address of its own callback function, 
EditUndProc() . Since this is a callback 
function, you have to call MakeProc- 
Instance() to obtain an address rather 
than just taking the address of the 
function directly. Also, you must declare 
EditUndProcf) in the EXPORT section of 
your .DEF file. 


Listing 3 (mledit.h) 

#define IDC MLEDIT 102 


Control ID Definition for MLEDIT. EXE 


Figure 1 




Multiline Edit Test 


Now is the time 

for all good men to come to 

the aid of their country.| 


!$tl 


Commenting Disassembler! 


SOURCER, 486 


■ SEE HOW PROGRAMS WORK 

■ EASILY MODIFY PROGRAMS 

SOURCER™ creates commented source code 
and listings from executable files or memory, 
suitable for reassembly. Sourcer helps clarify 
the inner workings of programs, with detailed 
in-line comments on interrupts, subfunctions, 
I/O port functions, and much more. It offers 
complete support for all 8088/87 to 80486 
instructions and V20/V30. 

Sourcer provides the most comprehensive 
automatic analysis available to accurately sep¬ 
arate code and data. It determines data types, 
uses descriptive labels for BIOS and PSP data, 
and links data items across multiple segments. 
Professionals consistently chose Sourcer 
because of it's ability to achieve far superior 
results with the least effort. 

“Sourcer is the best disassembler we've 
ever seen." PC Magazine 


BIOS SOURCE 


for PS/2, AT, XT, PC and Clones 

■ CHANGE AND ADD FEATURES 

■ CLARIFY INTERFACES 

The BIOS Pre-Processor™ augments Sourcer 
by allowing you to obtain commented listings for 
any BIOS ROM in your machine. Now you can 
understand how your specific BIOS works. Adds 
over 75K of comments specific to your BIOS. 
Tracks and identifies multiple interrupt branches 
with special labeling such as “int_10_video." 
Fully automatic operation. 


ASM ProPak 


Combine our advanced assembly language tools 
and save up to $120! All ASM ProPaks include 
Sourcer & BIOS Pre-Processor, Unpacker,™ to 
unpack packed EXE files, and View-lt,™ our high 
speed file viewer which can display 132 columns. 
ASM ProPak II includes ASMtool™ 486 to flow¬ 
chart 8088 to 80486 source code. ASM ProPak III 
adds ASM Checker/" the only assembly source 
code bug finder. 


Sourcer 486-Disassembler $129.95 

BIOS Pre-Processor 49.95 

Sourcer w/BIOS-(save $10) 169.95 

Unpacker-Unpacks packed files 39.95 

View-lt-View 132 column files 69.95 


ASM ProPak I— All Above (save $40) 249.80 

ASMtool 486-Automatic flowcharter 199.95 

ASM ProPak ll-AII Above (save $90) 399.75 

ASM Checker-Finds source code bugs 179.95 
ASM ProPak Ill-All Above (Save $120) 549.70 
Memory Commander-Get upto900K 

of contiguous DOS memory 99.95 

Shipping and Handling: USA$6: Canada/Mexico $10; 0ther$18. CA 
Residents add sales tax. C1991 Visa/MasterCard/COD accepted. 

30-DAY MONEY-BACK GUARANTEE 

1 - 800 - 648-8266 

yfKWM. V Communications Incorporated 
4320 Stevens Creek Blvd., Suite 275-TSI 
\ San Jose, CA 95129 FAX 408-296-4441 

(408)296-4224 
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Listing 4 (makefile) 


mledit : mledit.exe 

ml edit.res: ml edit.rc mledit.h 

rc -r mledit.rc 

mledit.obj: mledit.c mledit.h 

cl -c -AS -Gsw -Oasd -Zepi -W2 mledit.c 
test.obj: test.c mledit.h 

cl -c -AS -Gsw -Oasd -Zepi -W2 test.c 

mledit.exe: test.obj mledit.obj mledit.def mledit.res 

link /CO mledit+test,mledit.exe,,siibcew libw, ml edit.def 
rc ml edit.res 


The Microsoft C makefile for MLEDIT. EXE 


EditUndProcf) has four sections. First it retrieves the ad¬ 
dress of the previous callback function to call later. Then it 
checks the message number in order to alter the appropriate 
messages. Next, it calls the previous callback function and 
saves the return value. Finally EditUndProc() does some 
post-processing to restore any altered variables and returns 
the value returned by the previous callback function. 


It has to look like the user pressed 
the Ctrl key before pressing Enter and 
released the Ctrl key after releasing 
the Enter key. Pressing a key actually 
produces three messages: a UM_KEYDOUN 
(when the key is pressed), a WM_KEYUP 
(when the key is released) and a 
WM_CHAR after the previous two to indi¬ 
cate a completed keystroke. When 
these messages are for the Enter key, 
EditWndProcf) inverts the keyboard 
Ctrl state before processing the first 
message (UM_KEYDOUN) and inverts it 
back after processing the last message 
(UM_CHAR). 

EditUndProc () treats the Tab key a 
little differently than the Enter key. Be¬ 
cause the Tab key auto-repeats (holding 
down Tab moves the focus through all 
the controls in a dialog box), you cannot 
wait for the WM_CHAR message to undo 
the Ctrl key, or other controls will get confused. Therefore, 
EditUndProc() undoes the Ctrl key immediately after the 
call to the previous callback function, on the UM_KEYDOUN mes¬ 
sage. 

EditUndProc() traps the UM_DESTROY message to restore 
the previous callback function, free the new one, and clean up 
the property list. Using the message means that the program 


Programmer Power Pools 


Introducing: IBldSdC™ 

A ftigh ‘Performance ‘Key-Indexed 
Record ‘Management System 
for ‘DOS 

The power of a database without 
the hassles! Use the BASH tool 
kit to quickly develop complex, 
high performance data 
management applications. BASH 
functions allow your application 
to quickly retrieve, insert, update, 
and delete records. Access 
records sequentially or randomly 
using single or multiple keys. You 
may choose the widely acclaimed 
B-tree indexing method, a hashed 
indexing method or both. Record 
locking is provided for 
multitasking and LAN 
applications. The highly 
optimized BASH kernel uses only 
25K and is accessible from most 
DOS programming languages. 
BASH really is the best choice 
when it comes to developing data 
management applications. 

$83 (object code on(y) 

$249 (C source code) 


DOS 'Multitasking 

witfi 

MuttiDos Mus™ 

Elegant, easy to use, powerful 

DOS multitasking. Discover the 

product that OEMs around the 
world use for their critical 
applications. Thousands of 
customers and five years of 
proven reliability make 

MultiDos Plus the best choice for 
your multitasking platform. 

• Fast task context switch time 

• Very flexible prioritized 
preemptive task scheduling 

• Small memory overhead (64K) 

• Complete complement of API 
functions at no extra charge 

• Task execution in LIM 4.0 EMS lets 
your application grow without 
leaving DOS 

• Excellent for real-time turnkey 
systems 

• In-depth documentation with lots 
of sample software 

$33 (object code onCy) 


Call today for complete 
information, demo or to order. 

(800) 678-2141 

(508) 651-0091 
FAX (508) 655-8860 
BBS (508) 650-9552 


Kgnosoft Inc. 

13 Westfield Road 
Natick, MA 01 760 
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TIFF & PCX 

SDK FOR WINDOWS 3.0 


You Can Add TIFF & PCX support for your 
Windows 3.0 Application without learning 
TIFF & PCX file formats: 


TIFF SDK For Windows is a complete set of easy to use tools to 
develop TIFF 5.0 support to your application without ever having to learn the 
complexity of Tag Image File Format. Some of the features are Group 3, Group 
4, LZW, Packbit compression, color images, chained images and device 
independent bitmaps. Comes with a complete set of documentation and a 
sample programto demonstrate howto use TIFF SDK. Only $299.95 


PCX SDK For Windows is a complete set of easy to use 
tools to develop PCX file format for your application without ever 
having to learn the complexity of PCX file format. It comes with a 
complete set of documentation and a sample program with the 
source code to demonstrate how to use PCX SDK. Only $199.95 


IMAGE SDK For Windows is a complete set of functions to 
export, import, convert, rotate, invert, and manipulate bitmap 
images off or on the sreen. It comes with a complete set of 
documentation and a sample program with the source code to 
demonstrate how to use IMAGE SDK. Only $199.95 





CALL for information on NEW Windows Tools. 


TEL: (914) 764-1022 FAX:(914)764-1023 

VISA/M.C./C.O. D/CHECK 

BLACK ICE SOFTWARE INC. 

217 Cedar Hill Lane, Pound Ridge, N.Y. 10576 
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Listing 5 (MLEDIT.RC) 


#iinclude "windows.h" 

#include "mledit.h" 

/* test dialog box to show it working.... */ 

MLEDITBOX DIALOG LOADONCALL MOVEABLE DISCARDABLE 9, 26, 148, 75 
CAPTION "Multiline Edit Test" 

STYLE WS_B0RDER | WS_CAPTION | WS_DLGFRAME | WS_SYSMENU | WS_VISIBLE | WS_P0PUP 
BEGIN 

CONTROL "OK”, 1, "button", BS_PUSHBUTTON | WS_TABSTOP | WS_CHILD, 57, 55, 32, 14 

CONTROL "", IDC_MLEDIT, "edit", ES_LEFT | ES_MULTILINE | WSJORDER | WS_VSCROLL | WS_TABSTOP | WS_CHILD, 10, 6, 131, 46 


Resource Definitions for MLEDIT.EXE 


using the control doesn’t have to remember to call a clean-up 
function - it cleans up after itself! 

The code uses window properties to store the address of 
the previous callback function. Property lists are a useful fea¬ 
ture of Windows that allow you to store a word of informa¬ 
tion within Windows and associate it with a window handle 
and a name. Window properties are much like window at¬ 
tributes, but unlike window attributes, you can add window 
properties to a window that has already been created. 

I used window properties rather than a static global vari¬ 
able to avoid problems if the code is used either for several 
edit controls at once, or used in a DLL. In both cases, sub¬ 
sequent calls to InitMLE() would destroy the previous ad¬ 


dress stored in IpfnRealEdit. Associating the address with 
the window handle of the edit control directly means that the 
function can be used simultaneously for many edit controls 
without mix-up. 

Conclusion 

If you want CUA-compliant multiline edit controls in your 
dialog boxes, you cannot just use the default Windows con¬ 
trol. The easiest way to get the desired behavior is by sub¬ 
classing the edit control window. Subclassing lets you change 
just the things you care about and leave the rest of the work 
to someone else. □ 


OOP Async Tools for Tlirbo Pascal 6.0 


with ZMODEM and 
Data Decompression 


A sync Professional is a full- 

featured object-oriented commu¬ 
nications toolkit that enables you to 
build powerful async applications 
faster and easier. Async Professional 
has all the stan¬ 
dard features 
you'd expect of 
an async toolbox. 

Plus the robust 
Zmodem transfer 
protocol, data 
decompression 
tools, and both 
object-oriented and proce¬ 
dural calling interfaces. 

You get ■ interrupt 
driven buffered I/O to 115K 
baud ■ Zmodem, Kermit, Xmodem, 
Ymodem protocols ■ Zip and Lzh data 
decompression ■ automatic flow 
control-XoN/XoFF, Cts/Rts, Dtr/Dsr 
■ ComI- Com 8 support with up to 4 




ports open at once ■ 16550 buffered 
Uart support ■ hardware interrupt 
sharing on PS/2 ■ Ansi terminal 
emulation ■ modem control includ¬ 
ing Hayes, V.32, V.42, and Mnp5. 

Hot Example Programs Ibo! 

Demo programs include a 
powerful multi-window comm 
program with menus, text 
editor, and mouse support, built 
using Object Professional, and 
a simple comm program that 
depends on no other products. 

Powerful Async Debugging 

Event logging and tracing op¬ 
tions create a time-stamped 
audit trail of all async 
interrupts and charac¬ 
ters sent or received. 

You'll debug your 



application faster without the need 
for special debugging hardware. 

Full Source, Documentation 

Async Professional includes com¬ 
plete documentation, pop-up help, 
free technical support on Compu¬ 
Serve and by telephone direct from 
the authors. You get full source code 
and pay no royalties. 

“Async Professional is an excellent 
series of routines...and very complete. 
It's better than anything I've seen in 
Pascal, C or assembler. “ 
Richard Wilkes, Author, TAPCIS 

Async Professional, 
only $139. 

Call toll-free to order. 

1-800-333-4160 


Satisfaction guaranteed or your money back within 30 days. Add $5 per 
order for standard shipping in U.S./Canada. Inquire about other shipping 
options. Includes both 5.25" and 3.5" disks. Registered LiteComm 
owners call for special upgrade offer. OOP units require Turbo 5.5 or 
6.0; non-OOP units require Turbo 5.0 or later. 



9AM-5PM MST Monday through Friday, USA & Canada. 
For more information call (719) 260-6641, fax to 
(719) 260-7151, or send mail to CompuServe ID 76004,2611 
TurboPower Software PO Box 49009 Colorado Springs. CO 80949-9009 
© TurboPower Software 1991 
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THE FAST, FLEXIBLE 
EASY TO USE GUI 

TEGL WINDOWS TOOLKIT II 
The TEGL Windows Toolkit II is really 
three toolkits in one: a graphics inter¬ 
face, a memory manager and a window 
manager. Together they provide a pro¬ 
gramming environment. With the tools 
you get you can build a true event driven 
GUI for your DOS application. 


() LI IS I AN DING IT] AllJ RES 


You get all these features and 
more for only $99: 

* Adds as little as 100 K to the size of an 
application. 

* Virtual memory management using 
EMS hard disk and handles. 

* Extensive keyboard, mouse and timer 
event hooks. 

* An icon editor to design and edit your own 
icons. 

* World coordinates make it easier to fit 
data to the screen. 

* TEGL graphics interface, a virtual plug¬ 
in replacement for BGI, but much faster 
and with special routines for windowing. 

* 40+ bit mapped fonts, some fonts support 
the complete IBM character set. 

* Font editor to create fonts up to 100 x 100 
pixels. 

* Dialogue management for easy data 
entry, pick lists, and messaging. 

* Turbo Pascal objects and Turbo C++ 
class library. 

* CGA, Hercules, EGA ,VGA and SVGA 
support in 2, 16 and 256 colors. 

* Pascal version supports Turbo Pascal/ 
Quick Pascal. The C version supports 
Turbo C/C++, Quick C, Microsoft C and 
WATCOM C. 


WINDOW ROUTINES 


Fast scrolling in any direction, stan¬ 
dard character I/O, local menus, re- 
sizeable, scroll bars, headers, graphics 
clipping, CRT windows. 

The Complete Games Toolkit II 
Includes the TEGL Windows Toolkit plus com¬ 
plete source code for five games. The games are 
great examples of the use of the toolkit. Even in¬ 
cludes an electronic deck of cards to create your 
own card games. 


EXTRA BENEFITS 


No Royalties - Source Code Included 
30-day Money Back Guarantee 

Order today! (604)669-2577 

Fax (604)688-9530 

Visa/Mastercard/Cheque/Money Order 
TEGL Windows Toolkit II Release 2.0 
Pascal $99 C $99 
Complete Games Toolkit $139 
Shipping & Handling $10 
Shipping outside Canada & U.S.A. $15 
Canadian residents add 7% GST 

TEGL SYSTEMS CORPORATION 
780-789 West Pender Street, Vancouver 
British Columbia, Canada V6C 1H2 
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CUA Guidelines 

What does the Common User Access Advanced Interface Design Guide say 
about the behavior of the Enter key and the Tab key? The relevant text on 
this subject is on page 82 of the Guide. The CUA guidelines intended Enter 
and Tab to be used as shortcut keys for dialog boxes. They perform two of 
the most common dialog box actions: pressing the default button and moving 
to the next control. 

The default Windows behavior is not CUA-compliant, however. The CUA 
guidelines specifically say that Enter in a multiple-line entry field in a dialog 
box should move the cursor to the next line. If you have ever run into an 
application that makes you press Ctrl-Enter to add a line, you know why. It 
is just too unnatural to have to type anything but Enter to get to the next 
line. Outside of multipie-line entry fields in dialog boxes, pressing Enter 
should still produce the same effect as pressing the default button. 

The proscribed behavior of the Tab key is a different case. The CUA 
guidelines call for Tab to always move you to the next or previous control in 
the dialog box. The only exception to this is when the multiple-line entry 
field is the only field in the window (for example, in a word processing pro¬ 
gram). In that case, Tab should move the cursor between tab stops. 

The bottom line is that you have to be prepared to treat Enter and Tab 
differently under different circumstances. The default Windows behavior is 
not always acceptable. □ 


Listing 6 (MLEDIT.DEF) 

; module-definition file for mledit - used by LINK.EXE 

NAME MLEdit ; application's module name 

DESCRIPTION 'Test prog for Multiline Edit Controls' 

EXETYPE WINDOWS ; required for all Windows applications 

STUB 'WINSTUB.EXE' ; Generates error message if application 

; is run without Windows 

;C0DE can be moved in memory and discarded/reloaded 
CODE PRELOAD MOVEABLE DISCARDABLE 

;DATA must be MULTIPLE if program can be invoked more than once 
DATA PRELOAD MOVEABLE MULTIPLE 


HEAPSIZE 5000 ; expands as required 

STACKSIZE 10000 ; recommended minimum for Windows applications =5120 


; All functions that will be called by any Windows routine 
; MUST be exported. 

EXPORTS 

MainWndProc @1 ; name of window processing function 

TestDlg @2 

EditWndProc @3 ; name of subclassing WndProc - add to your .def 


Linker Definition File for MLEDIT. EXE 
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Creating Clarion 
Multiple Selection Tables 


Dave Cohen 


Clarion Professional Developer’s Designer utility 
provides a good base for applications develop¬ 
ment. However, it lacks an easy method of auto¬ 
matically generating multi-selection tables. Multi¬ 
selection refers to choosing more than one record 
in a table to act on. A common use of multi-selec¬ 
tion tables is to allow the user to filter unwanted 
information from a report. In my first example of 
a multi-selection table, I will show you how I im¬ 
plement a table that allows the user to tag and 
untag records for a report. 

The application used as a backdrop for this ar¬ 
ticle is an investment portfolio manager. As a 
member of the Association of Shareware Profes¬ 
sionals, I market this software as shareware under 
the name Capital Gainz. Basically, Capital Gainz 
manages security purchases, sales, and distribu¬ 
tions. This article's second example shows how a 
user selects open shares to sell. 

Clarion Memory Tables 

Clarion’s memory tables are extremely ver¬ 
satile. Prior to revision 2.1, Clarion's Designer utility 
used memory tables to manage filtered table pro¬ 
cedures. If you are not familiar with them, this 
article will give you a taste of their value. 

Memory tables give you the functionality of dynamic, 
doubly-linked lists. You should use linked lists instead of ar¬ 
rays unless the number of items is small and predictable. 
Otherwise, arrays result in wasted memory. A doubly-linked 
list dynamically allocates each entry from the process' heap 
and links it with the other entries in the list using backward 
and forward pointers. 

Using linked lists in programming languages such as C and 
PASCAL requires you to allocate memory and maintain 
pointers. For instance, you might declare a linked list of names 
and addresses in C and add an entry as shown in Listing 1. 
However, Clarion's memory tables let you manage linked lists 
as if they were files. The equivalent Clarion declaration would 
be: 

Dave Cohen is president of DBLinx, a contract and consult¬ 
ing firm located in the Raleigh-Durham-Chapel Hill area of 
North Carolina. He is also a member of The Association of 
Shareware Professionals. 
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Figure 1 


Select Securities 

Tag 

Security 



CPL 

Carolina Power & Light 


DGC 

Data General Corp 

/ 

FPEUR 

Fin. Prog. European 

/ 

FPHYL 

Fin. Progress High Yield 

/ 

FPINC 

Fin. Prog. Industrial Inc. 

/ 

FPTXF 

Fin. Progress Tax Free 


GRACE 

W. R. Grace 


HTG 

20th Cent. Heritage 


KRG 

The Kroger Co. 


PFZ 

Pfizer Inc. 


SRINC 

Strong Income 

A Multi-selection Table Screen 


NAME_LIST TABLE 

NAME STRING(60) 

ADDR STRING(IOO) 


And adding a name to the end of the list is simply: 

NAME = NEWJAME 
ADDR = NEW_ADDR 
ADD(NAME_LIST) 


FirstSQL" 

FIRST IN INNOVATION! 


"(FirstSQL's, Referential Integrity) support is 
the fullest of any current version of DDL." 

Fabian Pascal, DBP&D (9-90) 


Complete 
Relational 
DBMS_ 

□Ansi & DB2 
Compatible SQL 

□Direct Access to 
XBASE files 

□Single user or 
Network 


4GL-Application 

Developement 

Language 


□Building Applica¬ 
tions made simple 

□Full Windowing 
Facilities 

□Reporting 
Capabilities (with 
fonts) 


ALSO AVAILABLE—FirstSQL C EMBEDDED SQL for C 
Utilize the power of SQL in your C Applications (Oracle compatible) 


PC XT/AT & Compatibles.512k. MS-DOS (2.1 up) 
Phone:(415) 232-6800 Fax: (415) 237-7433 
FFE Software PO Box 1519 El Cerrito,CA. 94530 
NOTE :f4J5)CHANGES TO (510) AFTER SEPT. 1991 
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Figure 2 


Select Shares to Sell 

Symbol :CPL 

Carolina Power & Light 


Shares to Sell 

Date 

Shares Left 

Price 

1.0000 

2/02/87 

0.1976 

$41.7500 

1.0000 

3/02/87 

0.2618 

$39.6250 

1.0000 

4/03/87 

0.2799 

$39.0660 

0.0000 

5/04/87 

0.0703 

$36.6770 

0. 

Enter Number of Shares to Sell 

.6770 

0. 



.9770 

0. 

Open Shares 

: 0.0703 

.4200 

0. 



.2220 

0. 

Shares to Sell 

: 0.0000 

.2220 

0. 



.8430 

0.0000 

10/01/87 

1.4097 

$35.4680 

Total Shares To Sell: 

3.0000 


ENTER:Sell Shares ESC, CNTL-ESC, CNTL-ENTER:Continue 


P1CK QPEN and ASK SHELL SH 

You can perform other operations on memory tables: 

GET - retrieves an entry by relative position or by field value 
ADD - allocates memory and links the entry to the list 
PUT - updates a linked list entry 

DELETE - unlinks a list entry and deallocates the memory. 
Finally, you can sort memory tables, placing additions to the 
table in the correct order. 

Clarion memory tables also free you from allocating and 
deallocating memory from the heap. A C programmer would 
have to call malloc() for each linked list entry added, and 
free() for each entry removed. To deallocate the entire 
linked list, the C programmer would have to trace through the 
list and release each entry. Clarion's memory tables hide all 


Listing 1 

struct name_list_t { 

char name [61]; 

char addr[101]; 

struct name_list_t *next; 
struct name_list_t *prev; 

); 

struct name_list_t *name_top; /* head of list */ 
struct name_list_t *name_bot; /* end of list */ 

/* 

* A code fragment that adds an entry to a linked list. 

*/ 

struct name_list_t *entry; 

entry = (struct name_list_t *)malloc(sizeof(name_list_t)); 
strcpy(entry->name, new_name); 
strcpy(entry->addr, new_addr); 
if (name_top = NULL) 
name_top = entry; 
if (name_bot ! = NULL) 

name_bot -> next * entry; 
entry->prev = name_bot; 
entry->next = NULL; 
name_bot * entry 


C-style Linked Lists 
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these messy details and let you concentrate on the real prob¬ 
lem. In fact, a single statement, FREE, will deallocate the entire 
memory table. 

Memory tables are the key to developing multi-selection 
tables. As the following two examples illustrate, all you need 
to do is ADD the selected records to a memory table. Then, 
when the user is finished selecting records, process the list 
with GET. 

Tagging Multiple Selections 

The first memory table example deals with selecting one 
or more securities for a report. The code displays the list of 
available securities and the user selects, or tags, the securities 
to report on. As the first step, I used the Designer to create a 
table procedure, PICKS_SECS, that specifies TAG_IT as the up¬ 
date procedure and CLEAR_TAGS as the setup procedure. The 
screen includes a one-byte tag field to the left of each record. 
The tag field is a conditional field displaying a checkmark or a 
space depending on the value returned by the IS_TAG proce¬ 
dure. 

Figure 1 shows a screen from the PICK_SECS table proce¬ 
dure. In this example, the user already tagged some records, 
resulting in a checkmark in the Tag field. I decided that I 
wanted the ENTER key to be a toggle, tagging the record if it 
was not tagged, and untagging the record if it was tagged. 
Also, after toggling, the cursor moves down one record. 

The memory table definition is simply 

TAG_ALL_FLG BYTE(O) 

TAG_TABLE TABLE,PRE(TAG) 

PTR LONG 


The TAG_ALL_FLG indicates whether the user wants to print 
all securities. For instance, prior to bringing up the security 
table the user could be given the option to include all 
securities, skipping the tagging step. Or, the security table 
could include a function key to TAG ALL. For illustration, the 
memory table is globally defined. 

Listing 2 shows the code for TAG_IT, IS_TAG, CLEAR_TAGS, 
and ANY_TAGS. TAG_IT accepts a single parameter, a record 
pointer, and checks whether it is in the table. If not, TAG_IT 
adds the pointer. If the pointer is in the table, TAG_IT removes 
it. The IS_TAG function also accepts a pointer, and returns 
TRUE if the pointer is in the table and FALSE if it is not. IS_TAG 
is called when displaying records, and also when filtering 
records during report printing. CLEAR_TAGS and ANY_TAGS just 
serve to hide the global table and flag names from the calling 
functions. ANY_TAGS tells the calling procedure whether or not 
the user selected at least one security. 

Listing 3 shows the main loop of the PICK_SECS routine. It 
should look familiar, since it began as Designer-generated 
code. I took out the insert and delete code, and changed the 
update code to advance to the next record. Also, I tweaked 
some of the other code for performance gains, since records 
are not added or removed from the table. This example is 
fairly generic, and can be used in many different instances. 
Also, creating a Designer Model procedure incorporating this 


logic should be relatively easy, since the memory table only 
deals with pointers. 

Saving Information For Multiple Selections 

Building on the first example's techniques, the second ex¬ 
ample shows how open shares are selected to be sold. The 
PICK_OPEN table procedure displays the open share records 
for a selected security. In the Designer utility, pick_open 
specifies ASK_SELL_SH, a form procedure, as its update proce¬ 
dure. 

Shares to Sell is a computed field that calls SH_T0_SELL. 
Shares Left is a computed field that subtracts the value 
returned by SH_T0_SELL from the number of open shares in 
the record. Total Shares to Sell is a computed field that 
calls T0T_T0_SELL. 

Figure 2 shows screens for the PICK_OPEN and ASK_SELL_SH 
procedures. In PICK_0PEN, the Shares to Sell field is similar 


Listing 2 


TAG_IT PROCEDURE(PTR) 

! IF RECORD IDENTIFIED BY 'PTR' IS IN TAG TABLE, REMOVE IT. 

! OTHERWISE, ADD IT 
PTR LONG 

CODE 

LOOP X# * 1 TO RECORDS(TAG_TABLE)!IS THIS RECORD TAGGED? 
GET(TAG_TABLE,X#) 

IF (TAG:POINTER = PTR) 

DELETE(TAG_TABLE) !YES - UNTAG IT 

IF (ERROR(J) THEN ST0P('Tag Table: ' & ERR0R()). 

RETURN SAND RETURN 

TAG:POINTER = PTR !RECORD IS NOT TAGGED 

ADD(TAG_TABLE) ISO TAG IT 

IF (ERR0R()) THEN ST0P('Tag Table: 1 & ERRORQ). 

IS_TAG FUNCTION(PTR) 

! IS RECORD IDENTIFIED BY 'PTR' IN TAG TABLE? 

PTR LONG 

CODE 

IF TAG_ALL_FLG THEN RETURN(TRUE).!YES - ALL RECORDS TAGGED 
LOOP X# = 1 TO RECORDS(TAG_TABLE)!SEE IF RECORD IS TAGGED 
GET(TAG_TABLE,XI) 

IF (ERR0R()) THEN ST0P('Tag Table : 1 & ERR0R()). 

IF (TAG:POINTER = PTR) THEN RETURN(TRUE).!RECORD IS 

TAGGED 

RETURN(FALSE) !RECORD IS NOT TAGGED 

CLEAR_TAGS PROCEDURE() 

! CLEAR ALL TAGGED RECORDS 
CODE 

TAG_ALL_FLG - FALSE 
FREE(TAG_TABLE) 

ANY JAGS FUNCTION () 

! ARE ANY RECORDS TAGGED? 

CODE 

IF TAG_ALL_FLG OR RECORDS (TAG JABLE) THEN RETURN (TRUE). ! YES 
RETURN(FALSE) ! NO 

TAG_ALL PROCEDURE() 

! TAG ALL RECORDS 
CODE 

TAG ALL FLG = TRUE 'SET FLAG 


Tag Routines 


!RESET FLAG 

!DEALLOCATE MEMORY TABLE 
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to the previous example's Tag field. Instead of a checkmark, 
the number of shares selected to be sold is displayed using 
SH_T0_SELL. Hitting the ENTER key on a record in the table 
displayed by PICK_OPEN brings up ASK_SELL_SH. ASK_SELL_SH 
accepts the number of shares to sell, and also shows the cur¬ 
rent number of open shares. 


The memory table definition is 

0PN_TABLE TABLE,PRE(TBO) 

PTR LONG 

SHARES REAL 



Listi 

ng 3 


PICK.SECS FUNCTION (ACTION) 




ACTION EXTERNAL 


OF UP KEY 

! UP ARROW KEY 



SKIP(SECURITY,-(COUNT-1)) 

I SET TO TOP RECORD MINUS 1 

SCREEN, VARIABLES 


IF NOT BOF(SECURITY) 

I IF THERE IS A PRIOR RECORD 

EXCLUDED FROM LISTING 


PREVIOUS (SECURITY) 

I READ THE TOP RECORD 

CODE 


IF NOT ERROR () 

I IF READ A RECORD 

I SET SCREEN COLORS 


SCROLL ( ROW,COL,ROWS,COLS,- 

(ROWS(?POINT)))ISCROLL DOWN 

SETHUE(STG:COLORS[SCR SEC KIND, 

SCR TAB TYPE, 1], | 

DO SHOW RECORD 

!AND DISPLAY IT 

STG:COLORS[SCR SEC KIND, SCR 

TAB TYPE, 2]) 



OPEN(SCREEN) 

IOPEN THE SCREEN 

SKIP($ECURITY,COUNT-1) 

I SET RECORD FOR NEXT PAGE 

SETCURSOR 

! TURN OFF ANY CURSOR 

OF PGUP KEY 

! PAGE UP KEY 



SKIP(SECURITY,-(COUNT-1)) 

! SET TO TOP RECORD MINUS ONE 

NDX = 1 

I PUT SELECTOR BAR ON TOP ITEM 

IF BOF(SECURITY) 

I IF THERE IS NO PRIOR RECORD 

ROW * ROW(?P0INT ) 

I REMEMBER TOP ROW ANO 

NDX = 1 

I THEN POINT TO TOP ITEM 

COL = C0L(?P01NT) 

I LEFT COLUMN OF SCROLL AREA 

SKIP(SECURITY,COUNT-1) 

I SET RECORD FOR THIS PAGE 

CLEAR TAGS () 

I CLEAR TAG TABLE 

ELSE 

I OTHERWISE 

SET(SEC:SYMBOL KEY) 


SKIP(SECURITY,-(COUNT+1 )) 

■SET RECORD FOR PRIOR PAGE 

DO SHOW TABLE 


DO SHOW TABLE 

! AND DISPLAY THE PAGE 

MAX = RECORDS(SEC:SYMBOL KEY) 




LOOP 

I LOOP UNTIL USER EXITS 

OF CTRL PGUP 

ICTRL-PAGE UP 

IF MAX > COUNT THEN MAX = COUNT. ! COUNT AND SCROLL ITEM COUNT 

SET(SEC:SYMBOL KEY) 

I SET TO FIRST RECORD 

POINTER# - 0 

! CLEAR POINTER 

NDX ■ 1 

I POINT TO TOP ITEM 

ALERT 

I RESET ALERTED KEYS 

DO SHOW TABLE 

I AND DISPLAY THE PAGE 

ALERT ( REJECT KEY) 

I ALERT SCREEN REJECT KEY 



ALERT(ACCEPT KEY) 

! ALERT SCREEN ACCEPT KEY 

SETHUEO 

I RESET COLORS 

ALERT(ESC KEY) 


IF ANY TAGS () THEN RETURNfACT DONE). I RETURN DONE IF ANY TAGGED 

ACCEPT 

! READ A FIELD 

RETURN(ACTION) 

I NOT DONE IF NONE TAGGED 

IF ^RECORDS(SECURITY) 

!IF THERE ARE NO RECORDS 



NO RECS(ROW(?POINT),COL(?POINT)) I SHOW MESSAGE 

SHOW TABLE ROUTINE 

I DISPLAY A PAGE OF RECORDS 



skTp(security,COUNT-1) 

! SET TO THE BOTTOM RECORD 

CASE KEYC0DEO 

!PROCESS THE KEYSTROKE 

IF EOF(SECURITY) 

IFOR A PARTIAL PAGE 

OF REJECT KEY 


SET(SEC:$YMBOL KEY) 

!SET TO THE LAST RECORD 

OROF ESC KEY 


SKIP(SECURITY,-COUNT) 

IAND BACK UP ONE PAGE 

OROF ACCEPT KEY 


ELSE 

IOTHERWISE 

BREAK 

I END LOOP 

SKIP(SECURITY,-(COUNT-1)) 

I SET RECORD FOR THIS PAGE 

OF ENTER KEY 

I ENTER KEY OR 



DO GET RECORD 

I SET TBLPTR 

NDX# = NDX 

! SAVE REPEAT INDEX 

TAG IT(POINTER(SECURITY)) 

I TAG THIS RECORD 

LOOP NDX * 1 TO COUNT 

I LOOP THRU THE SCROLL AREA 

00 SHOW RECORD 


IF EOF(SECURITY) THEN BREAK. 

I BREAK ON END OF FILE 

SKIP{SECURITY,COUNT-NDX) 


NEXT(SECURITY) 

I READ THE NEXT RECORD 

IF NDX < COUNT 


DO SHOW RECORD 

IAND DISPLAY IT 

NDX +» 1 

I AND MOVE DOWN ONE 



ELSE 


NDX - NDX# 


IF NOT EOF(SECURITY) 

! IF THERE ARE MORE RECORDS 

IF RECORDS(SEC:SYMBOL KEY) < COUNI 

! IF RECORDS DO NOT FILL 

SCROLL(ROW,COL,ROWS,COLS,ROWS(7POINT) ) I SCROLL UP 

NDX#= RECORDS(SEC : SYMBOL KEY) 


NEXT(SECURITY) 

I READ THE BOTTOM RECORD 

BLANKfROW + NDX#,COL.ROWS-NDX#,COLS) I BLANK REMAINING AREA 

DO SHOW_R£CORD 

I AND DISPLAY IT 



OF DOWN KEY 

I DOWN ARROW KEY 

SHOW RECORD ROUTINE 

! DISPLAY SCROLLING LINE 

IF NOT EOF(SECURITY) 

I IF THERE ARE MORE RECORDS 

SCR:SYMBOL = SEC:SYMBOL 


SCROLL(ROW,COL,ROWS,COLS,ROWS(7POINT)) ISCROLL UP 

SCR:NAME = SEC:NAME 


NEXT(SECURITY) 

I READ THE BOTTOM RECORD 

IF IS TAG(POINTER(SECURITY)) 

! IF RECORD TAGGED,SHOW CHECK 

DO SHOW RECORD 

I AND DISPLAY IT 

SCR:TAG = " 




ELSE 


OF PGDN KEY 

I PAGE DOWN KEY 

SCR:TAG = ' ' 

I RECORD NOT TAGGED,SHOW SPACE 

IF EOF(SECURITY) 

ION THE LAST PAGE 



NDX = MAX 

I POINT TO BOTTOM ITEM 



ELSE 

!OTHERWISE 

GET RECORD ROUTINE 

I READ SELECTED RECORD 

DO SHOW TABLE 

[DISPLAY NEXT PAGE 

SKIP(SECURITY,-(MAX-NDX+1)) 

I SET TO SELECTED RECORD 



NEXT(SECURITY) 

IAND READ IT 

OF CTRL PGDN 

ICTRL-PAGE DOWN KEY 

SAME PAGE ROUTINE 

I SET TO SAME PAGE ROUTINE 

NDX = MAX 

!POINT TO BOTTOM ITEM 

POINTER# - POINTER(SECURITY) 

ISAVE ITS RECORD POINTER 

IF NOT EOF(SECURITY) 

ION THE LAST PAGE 

GET(SECURITY,POINTER#) 

I GET THE RECORD 

SET(SEC:SYMBOL KEY) 

I SET TO BOTTOM RECORD MINUS 

SET(SEC:SYMBOL KEY,SEC:SYMBOL KEY; 

I SET TO THE SAME RECORD 

SKIP(SECURITY,-COUNT) 

!ONE PAGE OF RECORDS 

SKIP(SECURITY.-l) 

I SKIP TO TOP OF SAME PAGE 

DO SHOW TABLE 

I DISPLAY THE LAST PAGE 




The PICK_S 

ECS Routine 
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Listing 4 shows the code for the SH_T0_SELL and 
T0T_T0_SELL routines in PICK_0PEN, and the ADD_OPN_SELL 
routine in ASK_SELL_SH. SH_TO_SELL loops through 0PN_TABLE, 
using the record pointer as an index. The T0_SELL variable is 
set to the number of currently selected shares to be sold. The 
T0T_T0_SELL routine totals all of the selected shares to be 
sold, setting TOT_SHARES. The ADD_OPN_SELL routine is ex¬ 
ecuted after user entry in ASK_SELL_SH. 

As before, the PICK_0PEN and ASK_SELL_SH are just 
modified versions of Designer-generated code, and are not in¬ 
cluded here. I removed the insert and delete code from the 
PICK_OPEN table procedure, and added the SH_TO_SELL and 
T0T_T0_SELL routines. Also, 0PN_TABLE is cleared on entry. 
ADD_OPN_SELL was added to the ASK_SELL_SH memory form, 
and is executed after field entry. 

ASK_SELL_SH accepts a pointer to the 
open record as one parameter, and 
returns the number of shares to sell as 
another parameter: 


this technique, then you would not invoke CLEAR_TAGS at the 
beginning of the procedure. Also, any modifications to the un¬ 
derlying file may nullify pointers in the memory table. Thus, 
you may want to free the memory table when changes are 
made to the file pointed to. 

The second example’s TOT_TO_SELL routine loops through 
the 0PN_TABLE to determine totals. I could have simply used a 
total field in the PICK_0PEN table procedure, and maintained 
additions and subtractions. However, the table is relatively 
small and, since it was in memory, allows fast access. Thus, I 
traded minor performance gains for reduced code complexity. 

I used the same argument against a sorted memory table. 
I could have kept the table in sorted order by adding records 
in sorted order, using the following form of the ADD statement: 


ASK_SELL_SH PROCEDURE(OPN_PTR, 
TOSELL) 

Some Observations 

These two examples bring up some 
interesting observations. First, notice that 
I used functions for the memory table 
manipulation in the first example, and 
routines in the second example. I did 
this because the first example is easily 
generalized, so you can use the 
TAGJTABLE in several places. If you use 
tag tables elsewhere in the program, 
then you will need multiple memory 
tables employing some identifying 
mechanism. However, the second ex¬ 
ample was specific, and the OPN_TABLE 
was not likely to be used elsewhere, of 
course, you could modify the TAG TABLE-. 


TAGJTABLE 

PTR 

VAL 


TABLE,PRE(TAG) 
LONG 
REAL 


The VAL field becomes a general-purpose 
numeric field. TAG_IT and IS_TAG would 
have to specify a parameter for this field. 

By making the memory table global, 
user selections can persist, in the first 
example, the memory table consumes 
only four bytes of user data per entry. Of 
course, some internal overhead is also 
associated with the pointers. By allowing 
the table to persist, the user can 
generate multiple reports based on a 
single selection of securities. If you use 


COMPUTER 


LANGUAGE 


J^Q 


presents 
C Bug # 747 


#if PROTOTYPES 


double sqrt (double); 


#else 


double sqrt (); 


#endif 


main () 


{ printf ( "sqrt(S) = %g\n" 

, sqrt(2) ); ) 


It looks like the programmer is being careful with his prototyping, allowing 
his compiler to check his calls if it supports prototypes and allowing for the 
occasional compiler that doesn't. But, what's wrong? When does this fail? 
Call if you need a hint. 


PC-lint will catch this and many other 

C bugs. Unlike your compiler, PC-lint 
looks across all modules of your appli¬ 
cation for bugs and inconsistencies. 

More than 270 error messages. More 
than 90 options for complete cus¬ 
tomization. Suppress error messages, 
locally or globally, by symbol name, by 
message number, by filename, etc. 

Easy to Use - If you know C you 
already know how to use PC-lint. Check 
for portability problems. Alter size of 
scalars. Adjust format of error mes¬ 
sages. Automatically generate ANSI 
prototypes for your K&R functions. 


Attn: Power users with huge programs. 

PC-lint 386 uses DOS Extender 
Technology to access the full storage 
and flat model speed of your 386. 

PC-lint 386 -$239 
PC-lint DOS or OS/2 -$139 

Mainframe & Mini Programmers 

FlexeLint in shrouded source 
form, is available for Unix, OS-9, 
VAX/VMS, QNX, IBM VM/MVS, 
etc. Requires only K&R C to com¬ 
pile but supports ANSI. Pricing 
starts at $798. Call for details. 


PA add 6% sales tax. 


Software 

3207 Hoganh Lane. Collegeville. PA 19426 

CALL TODAY (215)584-4261 Or FAX (215)584-4266 

30 Day Money-back Guarantee. 

PC-lint and FlexeLint are trademarks of Gimpel Software 
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Listing 4 


! FROM PICK_OPEN PROCEDURE 
SH TO_SELL ROUTINE 

! GET NUMBER OF SHARES SELECTED TO SELL FOR THIS RECORD 
! SET 'TO SELL' 

! 'TBLPTR 7 SET TO RECORD POINTER 

TO_SELL = 0 UNITIALIZE VALUE 

LOOP X# - 1 TO RECORDS(OPN_TABLE)!LOOP THRU MEMORY TABLE 
GET(OPN_TABLE,X#) 

IF (ERROR(J) THEN STOP('Open Table : ' & ERROR()). 

IF (TBLPTR - TBO:POINTER) IIS THIS THE RECORD? 

TO SELL = TBOlSHARES !YES - SET # OF SHARES 

EXIT 


!FROM PICK_OPEN PROCEDURE 
TOT_ T °_SELL ROUTINE 
! TOTAL UP NUMBER OF SHARES TO SELL 

TOT_SHARES = 0 !INITIAL COUNTER 

LOOP X# - 1 TO RECORDS(OPNTABLE)!LOOP THROUGH MEMORY TABLE 
GET(OPN_TABLE,X#) 

IF (ERROR()) THEN STOP('Open Table : ' & ERROR()). 


TOT SHARES +- TBO:SHARES !ADD UP SHARES 


!FROM ASK SELL_SH PROCEDURE 
ADD OPN_SELL ROUTINE 

! SEE IF ALREADY SELLING SOME SHARES FROM THIS RECORD. 

! IS SO, UPDATE MEMORY TABLE ENTRY. 

! OTHERWISE, ADD TO MEMORY TABLE. 

! ’OPNPTR' IS RECORD POINTER 

LOOP X# - 1 TO RECORDS(OPNTABLE)!LOOP THROUGH MEMORY TABLE 
GET(OPN_TABLE,#) 

IF (ERROR(J) THEN STOP('Open Table : ' & ERROR()). 

IF (OPNPTR ■ TBO:POINTER) !IS THIS THE RECORD? 

TBO:SHARES - TO_SELL !YES - UPDATE IT 

PUT(OPN_TABLE) 

EXIT “ !AND RETURN 


TBO:POINTER = OPNPTR !ADD TO MEMORY TABLE 

TBO:SHARES = TO_SELL 
ADD(OPN_TABLE) " 

IF (ERROR(J) THEN STOP('Open Table : ' & ERROR()). 


Routines for PICK_OPEN and ASK_SELL_SH 


ADD(TAG_TABLE, PTR) 

Since PTR is declared within the memory table structure, 
Clarion adds the entry in sorted order - from lowest to highest 
record pointer. If the second argument to ADD is not declared 
within the structure, Clarion assumes it designates a relative 
position number for adding the record. By sorting, you could 
use GET to directly access records by pointer value, instead of 


TOOLS FOR PARADOX! 



SaveCanvas Version 1.0 $30.00 

Save Paradox screen as a script. Play the script and 
screen is restored. Save as many screens as you like. 

GetMemo Version 2.02 $65.00 

Unlimited length memos. Paradox procedure seamless¬ 
ly writes memos into tables. Does not shell out to DOS. 

PopMenu Version 2.03 $65.00 

Enhanced user interface for Paradox database applica¬ 
tions. Library of popup menus (array or table-based), 
dialog boxes, input/output boxes, one and two-field table 
browsers, checklists, reports interface, and error handlers. 

Network & Runtime ready. ROWE SOFTWARE 
30-day money back guarantee. 312-280-7693 
PAL source code included. 1313 N. Ritchie, #1707 
Shipped FedEx. PO’s not accepted. Chicago, IL 60610 
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looping through the memory table. The size of multi-selection 
memoiy tables normally does not warrant sorted searches. 

Conclusion 

clarion memory tables give developers the power of linked 
lists without the headache of pointer manipulation. Using the 
techniques described, you can put them to use in creating 
multi-selection tables. □ 


DOS IN EPROM 


Or any other code, for that matter! PromKit allows 
you to create Eproms that look like read-only disk 
drives in your PC-compatible systems. Use PromKit 
even if you're not a programmer. Just use PromKit 
to convert any disk into EPROM images for your 
Prom blaster! Copy system files, batch files, data files, 
or anything else you want. Use Proms for read-only, 
SRAMS for read-write! Includes source code in C. 
Over 180 pages, including disk, only $179. Includes 
schematics for add-in boards. 


ITDirir We'll include a free copy of the pocket- 
" sized XT-AT Handbook by Choisser and 

Foster with each PromKit if you mention this ad when 
you order. Of course, this $9.95 value is also available 
by itself. Or buy five or more for only $5.00 each. 



Annabooks 
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Designing Paradox 
Network Applications 

Robin Rowe 

Borland International has sold over 800,000 copies of the relational database 
Paradox. In the past year, Paradox surpassed dBase in corporate buying volume and 
its total database market share has jumped from 7 to 35 percent. Much of this 
popularity is due to its powerful interactive interface. But what about programming? 
Can you develop the same (or better) applications with it that you can in dBase, and 
how difficult is it? It turns out that producing well-written Paradox applications re¬ 
quire following the same principles demanded by network Paradox applications. This 
article will lay the groundwork for mastering Paradox programming on a network. 

Fundamental Concepts 

Paradox is based on tables and records. At the table level, you can add two 
tables together, subtract one table from another, empty, delete, copy, create a table 
with the same structure as another, sort, and query. Paradox has powerful forms 
and reports. These objects, together with field valchecks, indices, and image settings, 
belong to a table and are called its family. 

Paradox Application Language (PAL) is a macro language, so you must be in¬ 
timately acquainted with Paradox in the interactive environment to get anywhere as 
a programmer. The reason will be apparent when you operate Paradox in its dif¬ 
ferent modes: Main, Create, DataEntry, Edit, CoEdit, Form, Graph, Password, Report, 
Restructure, Script, and Sort. Each mode has its own menu choices, so you must 
be in the correct mode before calling a command. It is not as much of a learning 
curve as it seems; as a programmer, you will use two modes for most of your work: 
Main and CoEdit. 

Main mode is for viewing tables, performing queries and printing reports. CoEdit 
is for entering data into tables. What you will not be using in 
a network Paradox application is Edit mode, since it locks all 
other users out of a table. Just so you are not tempted to 
use it on non-network applications, here are its other limita¬ 
tions: 

• Edit is slow. Edit does not actually change a table until 
you issue a Do_It! command. Then, Edit posts each 
change that you made, one by one, to the table. 

• Data may be destroyed. A power interruption will lose all 
your changes for that session, and will likely take the en- 
tire table with it. 


Robin Rowe is the president of Rowe Software, which makes popup menu and 
memo field add-ins for Paradox, and develops Paradox applications. Previously, he 
was technical director at an NBC TV station, and helped build the new robotic studios 
at NBC TV Chicago. He majored in math and dance at the University of Illinois. You 
may call him in Chicago at 312-280-7693. 
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Table 1 


KEYLOOKUP 

Jump to key violation record if there is one. 

(Both records locked.) 

LOCKRECORD 

Attempt to relock key violation record. 

LOCKRECORD 

Confirm that this is the only valid record. 

(Blow off new record.) 

How to Resolve Key Violations 


• Edit may fail to post data. Because 
Edi t blows off records with identical 
key fields (key violations), records 
you entered may be lost when 
posted. Since Edi t posts sequentially, 
records that were at some point in 
the session a duplicate but later 
resolved will probably be lost as well. 

• Edit may crash. Edit uses memory 
to store all its changes before post¬ 
ing. A user will not make enough 
changes to a table to run out of 
memory, but a program easily could. 
With all these problems, why would 

anyone want to use Edit instead of 
CoEditl In CoEdit mode, you can only 
undo the last record changed in a table. 
Edit can undo all changes, since no 
records have actually been changed 
until the end of the session. In Edit 
mode, records do not “fly away" to 
their correct position when posted in a 
keyed table, but remain unsorted until 
posted. But these are trivial reasons. 
The real reason is the fear of un¬ 
resolved key violations. 

Handling Key Violations 

In Paradox, the values across the key 
fields of a record must be unique. A key 
violation occurs when a user tries to 
post a record whose key field values 
exactly match the values of the key 
fields of another record in a database. 
Consequently, it is not a good idea to 
create a Customer table with Lost 
Name and First Name as the key fields. 
If you have two customers named John 
Smith, you will never be able to post 
the second one into the table. 

Edit mode would delete the second 
John Smith at the end of the session. 
CoEdit responds differently-, it will in¬ 
form the user that another record with 
the same key exists and offer to display 
that record. So, in a WAIT TABLE, the 


user who creates a key violation will 
receive the message, “Key exists - 
press [AltJJL] to confirm or [AltJJK] to see 
existing record." Key violations outside a 
WAIT TABLE are the programmer's 
responsibility. The simplest way to 
resolve a key violation is to throw away 
the new record, and use the old record 
(just like Edit mode) as shown in Table 1. 

Simple, but nowhere does the 
Paradox manual list this bit of code. 
Two L0CKREC0RD commands without 
the KEYL00KUP will blow off the old 
record, retaining the new one. Be careful, 
modified existing records behave dif¬ 
ferently from new inserted records. LOCK- 
RECORD will not resolve a key violation if 
an existing record is modified to conflict 
with another existing record. You must 
use UNL0CKREC0RD instead: 

KEYL00KUP 

UNL0CKREC0RD 

UNLOCKRECORD 

You might use UNLOCKRECORD all the 
time except for a quirk in its behavior. 
UNLOCKRECORD makes the posted record 
“fly away” to its sorted position in the 
table. With L0CKREC0RD if you are on 
record beginning with a and insert a 
new record z at the top of a table, you 
will still be on the record z after posting 
that record (now at the bottom of the 
table). With UNLOCKRECORD you would 
be left on the first record in the table, 
which is probably not the one you 
want at that point. Incidentally, Paradox 
treats capital letters as less than lower¬ 
case letters. “Z” comes before “a” in a 
keyed table. 

KEYLOOKUP has some quirks. ERROR- 
CODE () returns the code of the most 
recent error. If a key field is not 
modified, then KEYLOOKUP will set ER- 
R0RC0DE() equal to 0 (no error), the 
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same ERRORCODE() that would result if 
a modified record caused a key viola¬ 
tion. However, an ERRORCODE() of 56 
(key not found) will only occur if a 
modified key field did not cause a key 
violation. 

Record Contention 

CoEdit works by locking only the 
record you are changing, along with 
any related records. CoEdit locks the 
record automatically when you begin to 
change it, and keeps it locked until you 
leave the record or issue the UNLOCK- 
RECORD command. This allows other 
users to modify other records in the 
table without interference. 

A problem occurs when two users 
attempt to modify the same record 
simultaneously. Paradox handles this 
problem so that a deadlock will not 
occur. The first user will always get ac¬ 
cess to the master record and any re¬ 
lated records, and the other user will be 
locked out (but will still be able to view 
the records). In a UAIT TABLE, Paradox 
handles this interactively by giving the 
user a message that the record is in 
use by another user and providing that 


other user's name. The rest of the time, 
the programmer must test that another 
user has not locked the needed record 
(see Listing 1). 

Failing to put the SLEEP command 
inside the loop can bring a network to 
its knees, because of the constant 
LOCKRECORD requests. An unposted 
record by a user away from their ter¬ 
minal can lock up a system indefinitely, 
so network PAL programmers try to 
issue UNLOCKRECORD soon after a UAIT 
TABLE. You definitely do not want to 
leave a record unposted after leaving a 
data entry screen, perhaps while view¬ 
ing the main menu. Fortunately, it is 
rare that two users go after the same 
record simultaneously. 

Paradox Script Issues 

Paradox programs are called scripts. 
Scripts may have pre-parsed modules 
called procedures, that you can save 
into libraries. Using PROCs in libraries 
can improve program execution speed 
by an order of magnitude. You call a 
PROC just like a regular Paradox function, 
but you must have defined the autolib 
variable to point to the procedure library 


Listing 1 


LOCKRECORD 

WHILE NOT retval AND ERR0RC0DE()=9 

MESSAGE "Please wait, record has been locked by "+ERRORUSER() 
SLEEP 1000 ; IMPORTANT! Wait one second. 

LOCKRECORD 

ENDWHILE 

Locking Records on a Network 



Listing 2 

PROC StartO 


CLEAR ; Clear the screen 


MESSAGE "Opening database" 


VIEW "Customer" 


MESSAGE "Retrieving form" 


FORMKEV 


procedure="Menul" ; 

Name of next procedure. 

ENDPROC 



The Start() Procedure 


Listing 3 


IF ISSQL() and SQLISC0NNECTO 
THEN 

MESSAGE “Can't shell to DOS without breaking SQL connection" 

ELSE 

RUN BIG dos_command 

ENDIF 

_ Avoiding Breaking An SQL Connection 
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Our new HI-SCREEN Pro II is on integrated 
environment for creating ond managing user 
interfaces for your programs. 

>• Built-in editors allow you to interactively 
generate objects (windows, menus, icons, 
mouse cursors, graphs, help screens, etc.) 

>- Your programs can easily manipulate these 
objects, using a set of powerful functions. 

>• You can test all objects directly under the 
editor in any graphic mode (Hercules, CGA, 
EGA, VGA). 


>- New features include: New Icon Editor • 
New Menu Generator • New Graph Editor • 
New Library Generator • Enhanced scrolling 
(automatic scroll boxes) • 25/30/43/50 
line mode support • Enhanced data 
validation • etc. 



>• Compatible with previous HI-SCREEN versions. 


>- Includes linkable modules for C, Pascal, 
Clipper and Quick Basic. 


HI-SCREEN Pro II.$395 

Upgrades.Coll 


30 day money-back guarantee • No royalties 
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first. The old method of using READLIB to read the library 
directly is not recommended. Paradox can swap PROCs into 
and out of memory automatically when using autol ib. 

Paradox has limited stack space, and recursion can result in 
Memory resources exceeded. You can easily avoid this 
deficiency by using a PROC driver to avoid having any proce¬ 
dure directly or indirectly call itself. This PROC driver script 
should be your main, topmost level script and looks like this: 

autolib="MyLib" 

procedure=''Start“ 

WHILE TRUE 

EXECPROC procedure 
ENDWHILE 

Start () (see Listing 2) is defined in the Mylib library and 
points indirectly to the next procedure, instead of calling it 
directly. 

When Start () completes, it returns to the driver script, 
freeing its stack space, and the driver script then executes the 
Menul procedure. Since EXECPROC cannot call a procedure with 
arguments, small utility procedures should be called directly 
from within the called procedure. For best performance, keep 
individual procedures less than 10Kb in size. (You can find out 
their size by using INFO LIB.) 

One of the most difficult concepts for beginning Paradox 
programmers to master is the difference between the canvas 
and the workspace, and how to manipulate the two. The 
workspace is what Paradox would look like if you were using 


Paradox interactively, instead of in a script. The canvas is what 
Paradox shows a user, under programmer control, during a 
Paradox application. What is confusing is that sometimes the 
canvas looks identical to the workspace. 

When a script starts, Paradox copies the workspace image 
to the canvas. So, if you do not write something to the screen, 
it appears that Paradox has frozen until your script ends. That 
is, unless your program has a UAIT command. When you 
place a user in a UAIT TABLE, Paradox again swaps the 
workspace onto the canvas, making it appear to be interactive 
Paradox. Sometimes you want to display the workspace on 
the canvas without using UAIT: 

ECHO FAST 
ECHO OFF 

Most programmers use a query to select data in a Paradox 
application. However, a query has limitations when you are on 
a network because Paradox will not allow a dirty read. Before 
executing a query, Paradox flags the tables involved. (It does 
not take a “snapshot” as the manual would have you believe.) 
After the query executes, but before returning the answer 
table, Paradox checks the flagged tables to see if another user 
on the network changed the data while the query was in 
progress. If any of the flagged tables have been changed, 
Paradox will delete the answer table and run the query again. 
On a busy network, a query could run forever! 

You cannot turn this feature off. SETRESTARTCOUNT will limit 
the number of times Paradox will attempt to retry the query, 
but no command will guarantee the 
first try. Since the answer table is a 
copy, nothing prevents another user 
from changing the original tables the 
moment after the query completes. 
Therefore, the answer table becomes 
potentially obsolete the moment it is 
returned (a dirty read). The workaround 
is to write lock the tables being 
queried, or use the faster (but less 
flexible) LOCATE command instead of 
queries. If you use queries, several 
small queries will be much faster, and 
less troublesome, than one large query 
that does the same thing. 

Reports have the same dirty read 
problem that queries do. You must 
write-lock the tables, or use the PRINT 
command instead. It is possible to stop 
a runaway report in a Paradox applica¬ 
tion. To do this, access reports through 
the menus instead of using the REPORT 
command. Unfortunately, you cannot 
stop a runaway query. 

Form And Link Locks 

Paradox enforces referential integrity 
through its forms. You cannot delete a 
master record in a one-to-many 
relationship if, in so doing, you would 
orphan related records in that form. 



• Fully supports ANSI SQL-86 level 2 
standard, outer-join, primary key and 
referential integrity, scroll cursor, trans¬ 
action processing and security features, 
record locking for multi-user access 

• Especially designed to handle large files 

• Report-writer 

• Supports dBASE, 1-2-3, Foxbase, and 
Clipper file formats 

•dQUERY™ 4.0 is included in Quad- 
base-SQL and Quadbase-SQL/Win- 
dows 

Trial version* available for $99.00 
‘identical to full product except file size is 
limited to 1,000 records. 

Quadbase 
Systems Inc. 

790 Lucerne Drive 
Suite 51 

Sunnyvale, CA 94086 
(408) 738-6989 



Quadbase - SQL for Windows 

is a full-featured relational database 
management system that supports in¬ 
dustry standard programming platforms, 
namely, Windows 3.0, the C language, 
ANSI 86 level 2 SQL and dBASE file for¬ 
mats. The system offers ; (1) a high per¬ 
formance, compact and reliable SQL 
database engine in the form of 
DLL(dynamic-link Library), (2) an em- 
bedded-SQL preproccessor for C and (3) 
a report writer. 

dQUERY 4.0 

is your power tool for ad hoc querying, 
report writing, and building canned query 
systems using SQL and QBE. (call for free 
demo disk) 



Quadbase-SQL/Windows $995.00 
Quadbase-SQL $795.00 

dQUERY 4.0 $195.00 


Add $6 for U.S., $10 for Canada and $50 for interna¬ 
tional shipping and handling. VISA and M/C ac¬ 
cepted. 

* Other trademarks appearing In this ad are trademarks of their respective companies. 
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However, nothing prevents you from doing so in a table view, 
or through another form. To prevent this, Paradox has form 
locks and link locks. 

A form lock occurs when you switch into a one-to-many 
form during a CoEdi t session and make changes. Paradox will 
not allow you to make changes to that table through any 
other form or in table view in that session. 

A link lock occurs when you, or another user, switch into a 
one-to-many form during a CoEdit session and make chan¬ 
ges. Once link-locked, no user on the network can make chan¬ 
ges to the table through any other form or through table 
view. 

To allow users on a network to use different forms on the 
same table, do not use one-to-many relationships, but use 
many-to-many relationships that do not have link locks (but 
do have form locks). Many-to-many relationships also have 
the advantage of being able to represent multi-generation 
relationships. Using an unkeyed dummy table as the master, 
you could show a list of customers, a list of orders for a par¬ 
ticular customer, and a list of items for a particular order, all in 
the same form, using RESYNCKEY to manipulate the image. 

Designing Tables 

Paradox tables should be deep, not wide. Using a 65,000- 
record table as a HelpAndFill lookup table is no problem. It 
will be instantaneous, but only if the table is keyed and has 
few fields. Wide tables incur a performance penalty. A table 
with 255 fields will grind your system to a halt. Circumstances 
vary, but start looking for ways to split a table when it has 
more than forty fields. 

Database normalization under Paradox has limitations be¬ 
cause of the way reports work. Multi-table reports are back¬ 
wards from forms. They are based on the child table, not the 
master. Be careful not to group a report on a lookup field - 
the performance will be unacceptable. Either denormalize to 
include the grouping fields in table, or do a join using a query. 

Key fields in Paradox are tied to the table structure and 
cannot be turned on and off. Normalization can be difficult if 
you have to show a table in two different sort orders on the 
screen. Paradox does not support views or filters, and will not 
allow a table to be shown twice in the same form. Reports 
are not a problem because they have their own sort orders. 

Sometimes it is hard to judge whether a field should be 
alphanumeric or numeric. Is an Order # field a number or a 
word? It is easy to choose, if your Order # contains letters, but 
what if it just contains numbers? As a rule, you should not 
make a field numeric unless you intend to perform arithmetic 
on it. Paradox lets you add two numbers together, or two 
strings together. You have to do extra work if you later add 
data together, possibly in a report, and do not have com¬ 
patible field types to begin with. 

Out of the box, Paradox has the wrong default settings. 
Paradox 3.5 comes configured to be compatible with version 
1.0, which is not what you want. Use the Custom Configura¬ 
tion Program (CCP) to make the following changes: 

• Almost all Paradox applications require that blank values be 

treated as zeros in calculations: 

{Defaults}{Blank=Zero}{Yes} 


• Performance will improve greatly if indexes are maintained: 
{Pal}{Maintain Indexes}{Yes} 

• Even if you are not on a network, it is best to have Paradox 
believe you are. Using an empty private directory speeds 
up queries and reports: 

{Net}{SetPrivate} empty_directory 
{Net}{Username} your_name 

• You can manipulate queries more easily in image order: 
{QueryOrder}{ImageOrder} 

• If you have a laser printer, set the page length to 60 in¬ 
stead of 66: 

{Reports}{LengthOfPage} 60 

Packing Paradox tables removes unused (deleted or never 
assigned) records from a table. With a large table, the table 
might occupy only one third as much disk space after packing. 
Paradox has no command to pack a table. Restructuring a 
table is not the best way to pack it. During a restructure, 
Paradox holds part of the table in memory only. A power in¬ 
terruption at the wrong moment will irrevocably destroy the 
table. The best way to pack a table is to use a checkplus 


TCP/IP for Windows 3 

Release 2.0 Now Shipping 

Software Development Kit and Applications* 

NEWT is the first TCP/IP package developed specifically (not 
converted from DOS) for Windows 3.0. NEWT-SDK takes full 
advantage of Windows' flexibility and multitasking capability. 
This software development kit offers the programmer direct 
access to the Transport, Network, and Datalink (MAC) layers. 


o Implemented as a DLL (no TSR) 

□ Multiple windows ran multiple 

TCP/IP sessions concurrently 

□ TCP, UDP, ICMP, IP, and MAC 

□ Ethernet, Token Ring and FDDI 
O Berkeley 4.3BSD socket interface 

□ NDIS interface 

□ Concurrent LAN and SLIP 

□ Windows based set-up program 

□ Tracks and displays all network 
statistics 

□ Supports multiple network 
boards simultaneously 

□ Supports IP routing 

Only $500 


□ Three DLLs included: 
NEWT: TCP/IP stack 
FTP: file transfer 
SMTP: mail transfer 

□ Integrated SLIP dialing 

Applications* 

TELNET (VT100) 

FTP BIND 

TFTP Statistics 

SMTP Custom 

Mail PING 

□ Point and click UI 

□ Context sensitive help 

□ Both client and server 
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The first TCP/IP implemented as a Windows DLL 
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query to create a copy of the table. Empty the original table, 
then add the answer table back to the original table. 

When Paradox restructures a table it restructures its 
reports and forms, too. If a linked table has lost its keys, per¬ 
haps because you used TUtility to rebuild the linked table, 
then every linked field to that table will be blown off every 
form and report on the master. The same problem occurs if 
Paradox cannot find the linked table, perhaps because you are 
using Relative Directory Addressing (RDA) and choose to 
restructure the table in a different directory than the one you 
created the forms and reports in. 

if you are restructuring a table that is a lookup in a report, 
be careful. Report lookups are linked by field number, not 
field name. Removing or adding a field to the middle of a 
linked table can reduce the reports to nonsense. 

Handling Errors 

You can usually verify and restore damaged tables with 
TUtility.exe, which is in the \Paradox\UTIL directory. There 
is no facility for restoring a corrupted form or report. Turning 
off the computer while the drive light is on is a good way to 
damage a table. Other causes include incompatible TSRs, flaky 
hard drives/controller cards, and extended memory problems. 
A damaged table manifests itself as a table that has gibberish 
in it, or that locks up when you move to a certain record, or 
causes an Unexpected Condition. 

An Unexpected Condition is Paradox’s way of saying 
something so drastic happened that it could not deal with it. 
When this happens, Paradox exits to DOS and displays a cryp¬ 
tic and undocumented message about the problem. Deleting a 
table on the workspace while shelled to DOS is a good way to 
create an Unexpected Condition. An Unexpected Condition 
message with GP (short for “General Protection") in it means 
something bad happened in extended memory. Link range 
error means that an embedded table in a form is damaged. 

Fortunately, most errors do not cause an Unexpected Con¬ 
dition. In an application, you can handle errors by using er- 
rorproc. The errorproc variable points to the name of a spe¬ 
cial procedure you have written just to handle errors. Errors 
handled could include table access errors, hardware access er¬ 
rors, or even coding errors. A well-designed error handler al¬ 
lows the user to recover automatically from most errors, or 
shut down the system in an orderly way. Without an er¬ 
rorproc, the user faces the Cancel /Debug prompt in Paradox 
(or, goes straight to DOS in Runtime). 

Other Utilities 

Besides TUtility, Paradox also comes with Flimport.exe, 
which imports fixed length fields into Paradox. It works well, 
but would be more convenient incorporated directly into 
Paradox. Paradox imports and exports dBase, 1-2-3 and several 
other file formats directly. To export fixed length fields, simply 
create a one-line report. 

The included Personal Programmer is a code generator for 
writing Paradox applications without coding. It does not write 
very good code and, in particular, it does not write network- 
ready code; it is strictly single-user. Another great idea that 
falls short is the Data Entry Toolkit. The toolkit supports field- 


level events, but it is so slow and difficult to learn that few 
brave it. 

Paradox is well-integrated with Quattro Pro. You can hot¬ 
key between the two products and Quattro Pro can manipu¬ 
late Paradox tables directly. For true multitasking you will 
need DesqView or Windows. Paradox works well under Desq- 
View, but you must mark the Paradox system files as read¬ 
only during configuration. You have to run Paradox in real 
mode under Windows, which is a significant memory con¬ 
straint. Flowever, Paradox for Windows should be out by the 
spring of 1992. 

A Windows program available now that can manipulate 
Paradox tables is ObjectVision. Sidekick also can manipulate 
Paradox tables. C and Pascal programmers can manipulate 
Paradox tables directly using the Paradox Engine. Be 
forewarned that the engine does not yet contain support for 
queries, forms, or reports. 

Paradox Runtime is a better solution for most Paradox ap¬ 
plication developers because it contains almost all the 
functionality of Paradox. Runtime is available to any registered 
owner of Paradox for a nominal one-time fee (about $30). 
Developers who buy Runtime may distribute as many copies 
of Runtime as they like with their application. This allows you 
to distribute applications written for Paradox to customers 
who do not own Paradox. Runtime is a crippled version of 
Network Paradox, not a compiler. Even compressed, an ap¬ 
plication distributed with Runtime requires many disks. 

The Paradox Lan Multi-Pack is purchased separately. It al¬ 
lows multiple users on a network to use the same copy of 
Paradox. The Lan Multi-Pack supports Novell, 3Com, IBM PC 
Lan, AT&T Starland, and Banyon networks. Many users are 
also running on Artisoft Lantastic. Configuring Paradox on a 
network involves installing the Lan Pack, entering the serial 
numbers using NUpdate.exe, creating a private directory for 
each user, and giving each user a PARADOX. CFG file (using the 
CCP) that points to that private directory. 

If you have Network Paradox, you could also buy Paradox 
SQL Link. Paradox SQL Link allows Paradox to speak SQL to 
Oracle, Microsoft LanMan, or DEC rdb database servers. (There 
are three different versions.) It works by creating replica 
tables, similar in concept to struct tables, and translating a 
remote Query By Example (QBE) into a Structured Query Lan¬ 
guage (SQL) server request. Each user connected on SQL Link 
requires two network user counts, since SQL Link counts as an 
additional user. If you are connected to SQL Link, you must 
not shell out to DOS to RUN BIG because it will break the SQL 
connection (See Listing 3). 

Summary 

Creating network Paradox applications requires an under¬ 
standing of the Paradox interactive environment including 
table, form and report design, mastering CoEdit mode, and 
understanding record and table locks. Paradox has many 
strengths including multi-table forms, queries, HelpAndFill 
lookups, complex reports, overall performance, overall sophis¬ 
tication, user friendliness, flexibility, graphing, and more. In 
concentrating on some of Paradox's weaknesses, my purpose 
is not to detract from Paradox, but to help Paradox program¬ 
mers overcome those weaknesses. □ 
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Modifying CONFIG.SYS 
During Startup 


Larry Weaver 


AutoCon, a shareware program that I wrote, is a database manager of 
“named’’ AUTOEXEC.BAT and CONFIG.SYS pairs. Upon command, AutoCon copies 
the requested pair to the boot drive and forces a reboot. In order to add a 
requested enhancement to my Shareware program, I spent a couple of weeks 
learning how to write device drivers. In the process I gained some knowledge 
and developed some techniques that I think will be beneficial to anyone in¬ 
volved in this rather arcane endeavor. First, I will present a little background on 
my device driver involvement. 

The enhancement most requested by AutoCon’ s registered users was the 
ability to choose a configuration during the boot process, since my users pro¬ 
vide me with my livelihood, I have decided to give them what they wanted in 
the next release. To do this, I had to write a device driver that modifies the way 
the MS-DOS processes the CONFIG.SYS File. 

The end result is a device driver that works hand-in-hand with AutoCon to 
create a complete boot-up menuing system. In the process of developing this 
driver, I created another driver. I used the second driver for information gather¬ 
ing, and testing during the boot process. This driver inadvertently grew into an 
independent CONFIG.SYS modifier that I call MENUC.CTL. This article describes 
and contains the complete source for MENUC.CTL. With MENUC.CTL, you can 
place different sets of commands in your CONFIG.SYS file. At boot time, 
MENUC.CTL will present a menu that allows you to select which set of CON¬ 
FIG.SYS commands with which you want to boot. 

The ancestor of this device driver was a device 



driver written by Michael Medford called CON¬ 
FIG. CTL, and was presented in the Nov. 29, 1988 
issue of PC Magazine. Like its ancestor, MENUC. CTL 
allows you to change the way your system 
processes the CONFIG.SYS file. Unlike its ancestor, 
it is written in C, and does not require any editing 
of CONFIG.SYS commands during the boot 
process. MENUC.CTL also allows MS-DOS users 
below version 4.x (but above 1.x) to put remarks 
in their CONFIG.SYS file without those annoying 
"Unrecognized command in CONFIG.SYS" state¬ 
ments that go flashing by while booting. Changing 
the way MS-DOS processes the CONFIG.SYS file 
sounds like a very technical and low-level process, 
but it really isn’t. It only requires a little in¬ 
memory string manipulation. 


Larry Weaver is a computer consultant/shareware 
author living in the Trinity Alps in northern Califor¬ 
nia. He has over 20 gears of hardware and 
software design experience. You mag contact 
Lang at P.O. Box 2639, Weaverville, CA 96093. (916) 
623-5045; or call his BBS at (916) 623-4455. 


TECH Specialist — Page 27 





















How MENUC. CTL Works 

MS-DOS processes the CONFIG.SYS file by loading it into 
memory, parsing it into an internal format, and then executing 
each command in sequence ( XMAEM.SYS in MS-DOS v4.x is an 
exception to this). When MS-DOS processes a device driver 
command, it loads that device driver and passes it (as part of 
the initialization command) a pointer to the parsed version of 
that CONFIG.SYS line. That gives the device driver access to 
any arguments that were specified in the DEVICE= line that 
invoked it. 

The trick is that the parsed versions of all of the CON¬ 
FIG.SYS lines are in a contiguous block of memory. That 
means that you can use the pointer passed to the device 
driver at initialization to access other CONFIG.SYS lines, not 
just the one for your device driver. Therefore, all a device 
driver has to do to modify the normal CONFIG.SYS file 
processing is rewrite some strings in memory. Of course, any 
commands located in front of the driver have already been 
processed, so you cannot affect them. XMAEM.SYS is processed 
out of turn by MS-DOS v4.x, so you cannot affect it either. All 
other commands are fair game. 

You should also note that any changes made during the 
boot process have no effect on the actual contents of the 
CONFIG.SYS file. When a device driver is activated the first 
time, MS-DOS has not made enough of itself functional to sup¬ 
port the MS-DOS functions for file I/O. This driver simply works 
on memory contents. 


...still blazing, after all these years... 

OPTIMUM® 

Data Management System 

Flashback, 1981: OPTIMUM debuts for multi¬ 
user systems like Altos, Molecular, TeleVideo 
and OSM. In 1983, OPTIMUM beats dBase II to 
become the first multi-user DBMS to run under 
Novell's NetWare...developers worldwide build 
powerful, high-speed, hasned-file applications 
with keyword-based retrieval and more... 

Today, OPTIMUM'S multi-user sophistication 
and speed remains unparalleled, supporting 
hundreds of NetWare workstations, Concurrent 
DOS, and other LANs with a 4th generation 
form language that's definitely not for end- 
users. And those original applications still work 
without a single change... 

So if you or your users are running an original 
OPTIMUM system, call us...and see what the 
years have done for you... 


Berg Engineering Company, Inc. 

1100 South Gilpin Street 
Denver, Colorado 80210 
(303) 698-2873 

(In the UK, contact Maestro Solutions Ltd at 0895 825250) 

OPTIMUM is a registered U.S. trademark of Berg Engineering Company, Inc. 
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Writing Device Drivers In C 

Most device drivers are written in assembly language. Now, 
l have nothing against assembly language and I use it exten¬ 
sively. However, my device driver is going to be with me for a 
long time and I will probably have to make frequent tweaks 
to it. This is not a good recipe for assembly code. Higher level 
languages are much easier to document and maintain. For this 
specific reason, I have adopted the technique of using C as a 
high level assembler. 

Device drivers have specific startup requirements that are 
completely different from those of normal C programs. To 
write a device driver in C, I leave out the Turbo C runtime 
library and replace Turbo C's start-up code with the code in 
Listing 1 (TEENY.ASM). This is the minimum start-up code that 
Turbo C and I can live with. Using this code means that I have 
to write my own runtime library (I use the Turbo C inline asm 
procedure for this). I put the low-level screen, keyboard, and 
file routines in a library and then I use C to write the actual 
working code. Using this technique and my own printstrf) 
library routine, the following Hello World! program compiles 
down to 42 bytes. 


Listing 1 (teeny.asm) 

; Tiniest C Startup code for Turbo C 2.0 or 
; Turbo C++ 1.0 Tiny Model 

; define the standard Turbo C segments 

; in their correct order 

_TEXT SEGMENT BYTE PUBLIC ’CODE' 

EXTRN _main:near 
_TEXT ENDS 

_DATA SEGMENT WORD PUBLIC 'DATA' 

_DATA ENDS 

_BSS SEGMENT WORD PUBLIC 'BSS' 

_BSS ENDS 

; Add a "HEAP" segment so that we can cheat and dynamically 
; allocate memory even though we have a COM file format. 

JSSHEAP SEGMENT PARA PUBLIC 'HEAP' 
public _ENDDATA 

_ENDDATA label byte ;hook for dynamic memory allocation 

BSSHEAP ENDS 


DGR0UP 

GROUP 

_TEXT, 

_DATA, 

_BSS, JSSHEAP 

DGR0UP 

GROUP 

_TEXT, 

_DATA, 

_BSS 

TEXT 

SEGMENT 





0RG 100H 


assume cs:_TEXT 

BEGIN: 

jmp _main 

_TEXT ENDS 

END BEGIN 
; End of File 


Smallest Possible Start-up Code for Turbo C 
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#include "GENERAL.H" 
linclude "LIB.H" 
void main(void) { 
printstr("Hello World!\n\r$"); 

} 

Not bad for a Turbo C++ vl.O program and, as you can see, 
it would be easy to document and maintain, compared with 
the underlying assembly code. Listing 3 shows the library 
routines I used instead of the Turbo C runtime library. 

After a device driver initializes, it becomes part of MS-DOS, 
and MS-DOS is not reentrant. During initialization you have ac¬ 
cess to MS-DOS services 0x01 through OxOC, and 0x30. After 
initialization, you have no access to MS-DOS services, but you 
can use the BIOS interrupts. You can use all the routines in 
Listing 3 during the initialize process. After initialization, you 
cannot use the printstrf) or the MS-DOSversion() routines, 
which both use MS-DOS services. 

If you let the Turbo C compiler call the linker, it will link in 
the Turbo C runtime library. To avoid that, specify the link 
command yourself. For example, the following commands will 
create a 42-byte Hello World! .COM file. 

TCC -mt -c -0 -k- -jl Hello 

TLINK /n /t teeny hello,hello,.TEENYLIB 

Early versions of TLINK don't like making a COM file with 
the ORG set at zero. I’m using version 3.01 from the Turbo 
Pascal v6.o Professional Package; I’m not sure what minimum 
version number is required, so you will 
have to experiment and find out. 

Assembly Language Skeleton 

I have a book entitled Writing MS-DOS 
Device Drivers written by Robert S. Lai, 
and published by Addison-Wesley 
Publishing Company. The second chapter 
of the book presents the skeleton of a 
device driver. I realized that I could use 
the skeleton as an outline to create the 
start-up code for a device driver. This led 
to the code in Listing 2 (DEVICE.ASM). 

Depending on which start-up code I link 
in, I can either create a teeny . COM file, 
or a device driver. 

The skeleton in Listing 2 consists of a 
device header (a data structure) and two 
entry points: the strategy procedure and 
the interrupt procedure. The device 
header establishes the device driver type 
(character versus block, for example), its 
attributes (such as what device driver 
commands it supports), its name 
(MENUCTL in this case), and the addresses 
of the entry points. I made MENUC.CTL a 
character type device driver, but since it 
only gets called once, it doesn’t really 
matter. 


The only purpose of the strategy procedure is to save the 
address of a request header (the information packet MS-DOS 
passes with each call to the device driver) for the interrupt 
procedure to act on. When MS-DOS accesses the driver, it first 
calls the strategy procedure, then it calls the interrupt proce¬ 
dure. The interrupt procedure checks to see if the command 
passed is valid (only the initialize command in my case). If it is, 
the interrupt routine processes it. Otherwise it sets the un¬ 
known command error bit and returns to MS-DOS. 

If the interrupt routine in Listing 2 receives a valid com¬ 
mand, it establishes a stack and then calls main() (Listing 4), 
which is the C program that does all the work. The stack 
provided by MS-DOS during an interrupt is rather small, and 
the stack required by a C program is usually rather large. 
When MS-DOS initializes the device driver, it effectively has a 
full 64K to work in. DEV ICE. ASM takes advantage of this fact to 
move the stack pointer to the end of the 64K block. Of course, 
the original stack is saved and later restored. Linking 
DEVICE.ASM in with a C program (using the tiny memory 
model) creates a complete device driver. 

Setting The Driver Size 

The first command that MS-DOS sends to a device driver is 
the initialization command. As part of that command, MS-DOS 
expects the driver to store (in the request header passed to 
the driver) the segment and offset of the last byte of the 
device driver. Most device drivers put all their initialization 
code at the end and then set this pointer (called the break 
address) to the beginning of the initialization code. That way, 


The Measure of 
a Great Program. 

PC-METRIC™: The Measurement Tool For Serious Developers. 

PC-METRIC is the software measurement tool 
that measures your code and identifies its most 
complex parts. So you can spend your time 
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problems. 

PC-METRIC is fast, user-configurable, and 
includes a wide array of commonly accepted 
measurement standards. 

Plus, versions of PC-METRIC are available to 
support virtually every popular programming 
language. 

A Great Value By Any Measure. 

PC-METRIC’s price is only $199, and it comes 
with a 30-day money-back guarantee. Multiple 
user discounts are available, as well as site 
licenses and complete source code. 

Order Now! Call (503) 829-7123. 


COMPUTER 
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SET LABORATORIES, INC. 
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Listing 2 (device.asm) 

; Replaces C Startup code for Turbo C 2.0 


MOV CS: REQUEST OFFSET,BX 

; C++ 1.0 With 

Device 

Driver code 


MOV CS:REQUEST SEG.ES 





;Request header address is passed in ES:BX. 

; define the standard 

Turbo C segments 


RET 

; in their correct order 



TEXT SEGMENT 

BYTE PUBLIC 'CODE' 

STRATEGY 

ENDP 

EXTRN 

MAIN:NEAR 



PUBLIC 

REQUEST OFFSET, MENU CTL END, LEAVE 

t 

» 

TEXT ENDS 



; The interrupt procedure will be called immediately ; 




; after the strategy. ; 

DATA SEGMENT 

WORD PUBLIC 'DATA' 

» 

> 

DATA ENDS 








INTERRUPT 

PROC FAR 

BSS SEGMENT WORD PUBLIC 'BSS' 



BSS ENDS 



PUSH 

AX [Responsible for all registers. 




PUSH 

BX 

; Add a "HEAP" 

segmeni 

so that we can cheat and dynamically 

PUSH 

CX 

; allocate memory even though we have a driver format. 

PUSH 

DX 




PUSH 

DS 

BSSHEAP SEGMENT PARA 

PUBLIC 'HEAP' 

PUSHF 


public ENDDATA 




ENDDATA label byte ;hook for dynamic memory allocation 

MOV 

DS,CS:REQUEST SEG 

BSSHEAP ENDS 



MOV 

BX.CS: REQUEST OFFSET 





;Retrieve request header pointer 

DGROUP GROUP 

TEXT, 

DATA, BSS, BSSHEAP 

OR 

STATUS[BX],DONE ;Tell DOS we are done. 




CMP 

COMMAND CODE[BX],0 ;Is it INIT command? 

TEXT SEGMENT 



JNZ 

WRONG CMD ;If not, set error and leave 

ORG 

OOH 


CMP 

CS:FIRST TIME.O ;See if first time through 

assume 

cs: TEXT 

JZ 

WRONG CMD jNo, set bad and leave 




MOV 

CS:FIRST TIME.O ;Reset first time flag 

BEGIN: 



JMP 

SHORT MAKE_STACK ;Everything ok, do our stuff 

» 

DEVICE 

HEADER *************j 

WRONG CMD 





OR 

STATUS[BX],UNKNOWN CMD ;Else, exit with confused 

POINTER 

DD 

-1 :No more drivers 

JMP 

SHORT DEVICE EXIT ; message to DOS. 

ATTRIBUTE 

DW 

08000H [Character type 



DEVICE STRAG 

DW 

STRATEGY 

MAKE STACK: 

DEVICE INT 

DW 

INTERRUPT 

MOV 

AX,CS ;get cs 

DEVICE NAME 

DB 

"MENUCTL$" ;Name for DOS 

MOV 

DS.AX ;put it in ds 




MOV 

STACK SEG.SS ;Save DOS stack. 

I 


-; 

MOV 

STACK PTR.SP 




CLI 


REQUEST HEADER 

STRUC 


MOV 

SS,AX ;Make new stack. 




MOV 

SP.OFFFEH 

HEADER LENGTH 

DB 

? 

STI 


UNIT CODE 

DB 

? 



COMMAND CODE 

DB 

? 

JMP 

MAIN ;Go do our stuff. 

STATUS 

DW 

? 



RESERVED 

DQ 

? 

LEAVE: 





CLI 


REQUEST HEADER 

ENDS 


MOV 

SS,CS:STACK SEG ;restore stack seg 




MOV 

SP.CS:STACK PTR 

DONE 

EQU 

0000000100000000B ;Status codes. 

STI 


UNKNOWN CMD 

EQU 

100000000000001IB 






DEVICE EXIT: 

;parameter save area 


POPF 

[Restore rest of registers. 




POP 

DS 

REQUEST OFFSET DW 

? 

POP 

DX 

REQUEST SEG 

DW 

? 

POP 

CX 

STACK SEG 

DW 

? 

POP 

BX 

STACK PTR 

DW 

? 

POP 

AX 

FIRST_TIME 

DB 

-1 

RET 

;Far return back to DOS. 

; 

CODE AREA 

INTERRUPT 

ENDP 

* 



MENU CTL 

END LABEL WORD 

» 


-; 

; mark the end of DEVICE.ASM in memory 

; The only task of the strategy procedure is to save the ; 



; pointer to the request header. ; 

_TEXT ENDS 

* 


> 

END BEGIN 

STRATEGY 

PROC 

FAR 

; End of 

■ile 



An Assembly Language 

Device Driver Skeleton 
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code that is only needed for initialization doesn’t waste space 
after MS-DOS is up and running. Setting the break address 
takes place in main() (Listing 4). 

MENUC.CTL accomplishes its purpose during the initialize 
process and none of the code in it is necessary after initializa¬ 
tion. As a consequence, after MENUC.CTL initializes, it drops all 
of its code in the bit bucket by setting the break address to 
the beginning of the device driver. I have heard reports that 
this will not work in versions before MS-DOS v3.3. If this 
proves to be a problem for you, change the zero in main()' s 
first assignment statement (Listing 4) to &MENU_CTL_END. This 
leaves the DEV ICE. ASM code in memory. It is only 144 bytes 
and it will keep earlier versions of MS-DOS happy. DEVICE. ASM 
marks all commands as unknown after the original initialize 
command, so it causes no problems if it remains resident. 


Table 1 


Command 

Code 

Break 

c 

Buffers 

B 

Country 

Q 

Device 

D 

FCBS 

X 

Files 

F 

Shell 

S 

Stacks 

D 

Lastdrive 

L 

Unrecognized 

Z 

DOS 4 REM 

0 

Already Processed 

-1 


Altering CONFIG.SYS 

To modify the copy of CONFIG.SYS that MS-DOS stores in 
memory, you have to understand the format into which MS- 
DOS parses it. When MS-DOS parses CONFIG.SYS, it replaces all 
of the commands by a one-byte code. MS-DOS replaces the 
CONFIG.SYS directive DEVICE with a D, BREAK is replaced with 
a C, and unrecognized commands are replaced with a Z (see 
Table 1 for a complete list of command codes). MS-DOS v4 
adds a REM command that it encodes with a 0. MS-DOS v4.0 
and newer may process commands like XMAEM.SYS first and 
store a command code of -1. 

While parsing CONFIG.SYS lines, MS-DOS removes the equal 
signs (=), as well as any extra spaces between the command 
and the first parameter. Therefore, 

DEVICE = MENUC.CTL 

becomes 

DMENUC.CTL 

I will refer to this part of the parsed format as the command 
string. A zero byte usually follows the command string, then 
the parameters from the rest of the CONFIG.SYS command 
line, followed by a line feed character, and sometimes a car¬ 
riage return (I’ll call this the command line). Everything gets 
capitalized. As an example, MS-DOS parses the CONFIG.SYS line 

DEVICE = MENUC.CTL M3 "Default Menu 

into this: 

DMENUC.CTLXO M3 "DEFAULT MENU\n 

MS-DOS passes the device driver a pointer to the parsed ver¬ 
sion of the corresponding line from CONFIG.SYS. The pointer 
points to the first byte of the arguments, not to the beginning 
of the command string. The parsed versions of the remaining 
CONFIG.SYS lines follow that line, just lying there in memory 
waiting to be processed or, in this case, modified. 


config.sys Command Conversions 


Deactivating Commands 

The biggest problem I had was deactivating CONFIG.SYS 
command lines, so I could bypass different sections of CON¬ 
FIG.SYS. You can alter the parsed command line, but you 
cannot change its length. MENUC. CTL initially deactivated com¬ 
mands by replacing the command byte with a Z to make 
them Unrecognized. The problem with this technique is that 
it leads to a lot of “ Unrecognized command in CONFIG.SYS" 
messages during the rest of the CONFIG.SYS processing. In 
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Listing 3 (tinylib.c) 

linclude “GENERAL.H“ 

/********************************************************** 

linclude "LIB.H" 

* BOOL cmpsnf(char far *b,char *s,l: WORD) : Returns * 


* TRUE if T bytes of near string 's' compare exactly * 

Ipragma Inline 

* with far buffer ' b ' . Returns FALSE if no compare, * 


* or '1 ' = 0. * 

/*********************************************************** 

********************************************************* j 

* BOOL chk key(void) : uses Bios interrupt 16 to check * 


* if a key has been hit. Returns FALSE if no key, * 

B00L cmpsnf(char far *bufl,char *strl, WORD 1) ( 

* TRUE if a key was hit. * 

asm XOR AX,AX /* assume fail */ 

★★★★★★★★★★★★★★★★★★Ik**************************************** j 

asm MOV CX,1 /* put length in cx */ 


asm JCXZ CMP00 /* if 0 length no compare */ 

BOOL chk key() 

asm LES Dl.bufl /* far ptr to bufl */ 

{ 

asm MOV Sl.strl /* near ptr to strl */ 

asm mov ah.Olh 

asm REPZ CMPSB 

asm int 16h 

asm JNZ CMPOO /* did they compare? */ 

asm jz short exit 

asm MOV AX,1 /* yes, TRUE = identical */ 

asm mov ax,l 

CMPOO: 

exit: 

return ( AX); 

asm mov ax,0 return( AX); 

} 

} 

J*********************************************************** 


* void delay l(void) : Reads system timer tick value * 

j *★★*★**★**★*★★*★*★*★★★★★*****★***★*★★**★★★★**★*★*****★★★★** 

* (updated every 1/18 second), adds 18 to it, and * 

* void cls(void) : uses the fact that a change of video * 

* waits for a second to pass. * 

* mode clears the screen. Uses BIOS interrupts to * 

★ ★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★if************* j 

* read the current mode, then to set the same mode. * 


■k ************ it ir **************************** ******* irk* irkifk**/ 



BYTE far ‘timer = (BYTE far *) 0x0040006C; 

void cls(void) 

/* where the system keeps the timer tick value */ 

i 

asm mov ah,0fh /* get current video mode */ 

void delay l(void) ( 

asm int lOh 

BYTE time; 

asm xor ah,ah /* set current video mode, clears screen */ 

time = ‘timer + 18; 

asm int lOh 

} 

while (time != ‘timer) {); 

} 

Tiny Runtime Library t 

o Replace Turbo C RTL 


- DISTRIBUTED C - 

MODULAR DATA ACQUISITION AND CONTROL 

Modular data acquisition and control systems are easily 
assembled using DCC600 Industrial Controllers. This 
powerful building block approach allows a single IBM 
compatible computer to control and monitor thousands of 
remote I/O devices. The resulting distributed system 
effectively links serial peripherals, analog and digital 
control points. 

• 250 control nodes networked using low cost RS485 

• SDLC protocol at 62.5/375 Kbits/second 

• Expandable I/O at each control node 

• Remote programs loadable across network 

• OS/2 and DOS support software 

The DCC600 controllers provide a flexible stand alone 
control capability as well as integrated networking 
support. C applications operating on the IBM compatible 
computer have immediate access to data residing on the 
remote control nodes. 

• Programmed in C with library of control functions 

• Multi-tasking executive and remote task control 

• Symbolic remote C variable access 

• Integrated device drivers and runtime support 

• RS232, RS485 and Centronics printer support 

• OPTO-22 and Analog Devices termination panels 

Complete development support for IBM compatible systems: 

• Network Manager and Utilities for OS/2 and DOS 

• 'Tool-box' of network access routines (w/source) 

• Remote node C compiler with symbolic variable support 

• Microsoft compatible interface libraries 

• Data acquisition/presentation application programs 

To find out more on how the DCC600 will solve your data 
acquisition and control needs contact: 

DIP Industrial Products 
P.O. Box 9550 
MORENO VALLEY, CA 
92303 

Phone: 714-924-1730 
Fax: 713-924-3359 

Designed and built with American pride. 
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MS-DOS v4, you can convert the commands to Remarks by 
replacing the command byte with a 0 instead of a 1. 

Next, I tried deactivating commands by changing them to 
refer to a dummy device driver that set its length to zero 
(basically just the code in DEV ICE. ASM) and exited. As I said 
before, this technique is reported to have some problems in 
MS-DOSes before v3.3. It also leads to a lot of disk activity, 
because the driver is read into memory and executed for each 
deactivated command. 

While I was experimenting with various ideas, I had an in¬ 
spiration of sorts. I’ve had a few problems with people who 
have been able to break out of AutoCon when they have in¬ 
advertently turned BREAK-ON. As a consequence, I usually 
have a BREAK=0FF command in my CONFIG.SYS file. I noticed 
that I didn’t see anything on the screen when this command 
was processed. A little experimentation led to the conclusion 
that BREAK=0FF is a perfect command to deactivate other 
CONFIG.SYS commands. The only problem with this technique 
is that some command lines are not long enough. BREAK=0FF 
translates to C0FF\0, BUFFERS=1 translates to B1\0, FILES=20 
translates to F20\0, and LASTDRIVE=M: translates to LM:\0. All 
three are too small to deactivate with COFF. I found, however, 
that these commands don’t seem to mind if there is some¬ 
thing else on the command line such as BUFFERS=1 *, 
FILES=20 *, and LASTDRIVE=M: *. By replacing these com¬ 
mands with COFF, they become invisible during the rest of the 
boot process. If for some reason you do want BREAK=0N, then 
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Listing 3 

— Cont’d 

y*★★*★*★★★★**★★★★★★***★★★*★★*★★*★★★*★★★**★★★★*★★★******★*★★★ 

asm mov ah,02h 

* WORD dosversion(void) : uses Int 21 to get and return * 

asm int lOh /* reposition to the beginning of line */ 

* the current version of DOS * 

done:; 

★★★**★*★*★★*★★★**★★★***********★★**★**★******************** j 

) 

WORD dosversion() 

{ 

J ★★*★★★*★*★★*★★★★*★*★★***★***★***★*★★*★★*★★★★★★★★★**★*★★★★★* 

* WORD get key(void) : Uses bios interrupt 16h to get a * 

AX = 0x3000; 

* key stroke, and return it. * 

asm int 21h 

*********************************************************** j 

/* move version # to High BYTE for easier */ 

WORD get key() 

/* compares */ 

( 

asm xchg ah,al 

asm mov ah,0 

return( AX); 

asm int 16h 

) 

return( AX); 

} 

* WORD fputsh(char *str) : Print a 'C' string * 

j A********************************************************* 

* using the ROM BIOS. Replaces “C" fputs * 

* WORD movesnf(char far *b,char *s) : Copy all chars in * 

★ ★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★Hr**************** J 

* near string to far buffer. Uses strlen to find * 

* length. Returns length of string copied. * 

WORD fputsh(char *str) ( 

/* use the rom bios to pring a "C" string (ending in \0) */ 

j 

WORD movesnf(char far *bufl,char near *strl) { 

/* first, find the length of the string we have to print */ 

asm MOV Sl.strl /* near ptr to strl */ 
asm PUSH SI /* pass the pointer */ 

asm MOV Sl.str /* ptr to str */ 

asm CALL strlen /* get length of S */ 

asm PUSH SI 

asm POP SI /* retrive pointer */ 

asm CALL strlen /* find length of str */ 

asm MOV CX.AX /* put length in CX */ 

asm POP SI 

asm JCXZ DONE /* don't copy if length 'O' */ 

asm MOV CX,AX /* put str length in C */ 

asm INC CX /* include the terminating 'O' */ 

asm JCXZ DONE /* if length 0, leave */ 

asm PUSH CX /* save length */ 

asm PUSH AX 

asm LES Dl.bufl /* get far pointer to buffer */ 
asm TEST 01,1 

/* save string length to return, not really 

/* if on byte boundary, adjust to word */ 

necessary, but easy to do */ 

asm JZ MOVEOO 

asm MOVSB 

asm MOV AH.OEH /* get interrput request */ 

asm DEC CX 

asm XOR BH.BH /* point to page 0 */ 

MOVEOO: 

TTY: 

asm SHR CX,1 

asm LODSB /* get the character */ 

/* save odd byte count, adjust for word move */ 

asm INT 10H /* print a character */ 

asm REP MOVSW /* move words */ 

asm LOOP TTY /* print them all */ 

asm ADC CX.CX /* see if last byte */ 

asm REP MOVSB /* move if yes */ 

asm POP AX /* return string length */ 

asm POP AX /* restore copied length */ 

DONE: 

DONE: 

return( AX); 

} 

return( AX); 

} 

y************************★**★★★★***★★**★**★★★********★★*★*★* 

!*★★★**★★★*★★*★*★*★★★★*★★★*★**★**★★★★★★****★★**★★*★★*★*★**★★ 

* void hi-1ite(BYTE r.BYTE c.BYTE a, WORD 1) : uses several* 

* void printstr(char *str) : uses int 21 string print * 

* bios interrupts. Positions to screen location r,c * 

* routine to print passed in string. The string must * 

* reads 1 1* bytes from the screen (one at a time ), * 

* be terminated with a $. * 

* changes the attribute to 'a' and puts it back on * 

* the screen with the new attribute. * 

*********************************************************** J 

★★★★★★★★★★★★★★★★★★★★★★★★★**********************************y 

void printstr(char *str) 

void hi lite(BYTE row, BYTE col, BYTE attr, WORD length) 

i 

AX = 0x0900; 

{ 

asm mov dx,str ;/* ptr to STR */ 

asm mov cx,length /* get length of string to hi lite */ 

asm int 21h; 

asm jcxz done /* if zero, nothing to hilite */ 

asm xor bh,bh 

) 

asm mov dh.row 

j ★★★★★★★**★*★*★★*★***★★★★*★★★★★★★★★*★******★★**★★*****★★★*★★ 

asm mov dl.col /* point to string on screen */ 

* void set curs(Byte r, Byte c) : uses bios set cursor 

hi It: 

* routine to position cursor to r,c on screen. * 

asm mov ah,02h /* position to byte to hi lite */ 

asm int lOh 

★*★*★★★★★★**★★★*★*★★★*★★*****★★*★★********★**★*********★*★★j 

asm mov ah,08h /* read the character on the screen */ 

void set curs(BYTE row, BYTE col) 

asm int lOh 

{ 

asm mov bl.attr /* change attribute to “attr" */ 

asm mov ah,02h 

asm mov ah,09h 

asm xor bh.bh 

asm push cx 

asm mov dh.row 

asm mov cx.Olh 

asm mov dl,col 

asm int lOh /* put it back with passed in attribute */ 

asm int lOh 

asm pop cx 
asm inc dl 

asm loop hi It /* do the whole line */ 

asm mov dl,col 

) 


J 
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Listing 3 — Cont’d 

I *********************************************************** 

* WORD strlen (char *str) : Returns non-0 length of * 

* of string 'str'. * 


strlen(char 

*str) ( 




asm 

MOV 

DI.DS 

/* 

point ES to DS 

*/ 

asm 

MOV 

ES, DI 

/* 

done */ 


asm 

MOV 

Dl.str 

/* 

ptr to str */ 


asm 

MOV 

CX.-l 

/* 

get maximum count */ 

asm 

XOR 

AX, AX 

/* 

setup 0 search 

*/ 

asm 

REPNZ 

SCASB 




asm 

NOT 

CX 




asm 

DEC 

CX 

/* 

len 'str' */ 


asm 

MOV 

AX.CX 




return( AX); 





I **************************************************** 

* void w_tty(char c) : Print a character using * 

* using the ROM BIOS Write TTY routine * 

* ★★★★if********************************************** J 


void w_tty(char c) 

{ 

asm mov ah.Oeh 
asm mov al,c 
asm int lOh 

} 

/* End of File */ 


Listing 4 (menu.c) 

j *********************************************★**★★★**★★*** 

* MENUC.CTL - Allows you to dynamically change your * 

* CONFIG.SYS configuration at boot time. * 

* * 

* Add DEVICE = MENUC.CTL [Mx Tx "Text] to your CONFIG.SYS* 

* just ahead of the first group of commands you wish to * 

* be able to menu. The x in Tx is the seconds MENUC.CTL * 

* will pause for a keystroke before booting normally. * 

* x defaults to zero. The x in Mx is the default menu * 

* number (1-8) that will be selected in a normal boot. * 

* x defaults to one. The text after the " will be the * 

* first menu title. All text after the " will be * 

* considered part of the title, so it must be the last * 

* parameter on the line. The first title can be * 

* specified this way, or by putting the following * 

* construct imnediately after the DEVICE=MENUC.CTL * 

* * 

* Add DEVICE = MTITLE [Text] to give the boot menu * 

* selection a title to put on the screen. Each * 

* MTITLE [Text] (up to * eight) will create a new menu * 

* selection. * 

* * 

* Add DEVICE = MENUEND after the last command you wish * 

* to be able to menu. MENUEND (like MTITLE) is a dummy * 

* device and must appear in CONFIG.SYS in order for * 

* MENUC.CTL to operate. * 

*********************************************************J 


linclude 

“GENERAL.H" 



linclude 

"LIB.H" 



typedef 

struct ( 

/* 

The static part of a device */ 

BYTE 

HEADER LENGTH; 

/* 

drivers request header. */ 

BYTE 

UNIT CODE; 

/* 

See “Writing MS-DOS Device */ 

BYTE 

COMMAND CODE; 

/* 

Drivers” by Robert S. Lai */ 


Main Code for menu, ctl 



ttention Turbo Pascal users! If you are 
interested in full screen input, moveable 
windows, list managers, directory 
displayers, pull-down and pop-up menus, 
date control, hardware configuration, string 
utilities...and much more with full source 
code, all for $89.95, call 

713-493-6354. 

Technojock 

SOFTWARE - 


They like it! 

"It's refreshing to see that something doesn't have to be 
overly complicated to be highly technical...how canyon 
resist?" 

PC Magazine, June 1991 

"In a nutshell. Technojock leaves other toolkits in the 
dust when it comes to flashy documentation...! 
recommend the toolkit to anyone who needs to write 
serious applications in Turbo Pascal, or who just wants 
to learn about object oriented programming in 
general." 

Turbo User Group, June 1991 

"Technojock Software has outdone itself... The quality 
of the code...the superbly written manual...make the 
$89.95price one of the best bargains available today. " 
PC Techniques, May 1991 

"Techno what?" 

Michael Jordan 
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add this statement after the device driver control area, or in 
the AUTOEXEC.BAT file. 

During this experimentation, I discovered that you should 
never put a single Unrecognized word on a line in your CON¬ 
FIG.SYS (such as REM). This has nothing to do with MENUC.CTL. 
When processing the CONFIG.SYS file, MS-DOS sees the Un¬ 
recognized command, replaces it with a Z, then assumes the 
next line in CONFIG.SYS is the rest of the command line and 
does not process it. For example, try the following two lines in 
your CONFIG.SYS and see if ANSI.SYS gets loaded. 

JUNK 

DEVICE=ANSI.SYS 


MS-DOS gives no indication of where the parsed CON¬ 
FIG.SYS data ends. Therefore, I adopted the convention of ad¬ 
ding a DFVICE=MENUEND command in the CONFIG.SYS file to 
mark the end of the modifiable data. With this convention, all 
commands in the CONFIG.SYS file between DEVICE=MENUC.CTL 
and DEVICE=MENUEND can be modified by the device driver. I 
also adopted the convention of breaking CONFIG.SYS lines into 
selectable chunks with the control line 

DEVICE = MTITLE <Text> 

where <Text> is information on what this particular chunk is 
for. See the example CONFIG.SYS file in Figure 1. MENU.C allo¬ 
cates space for an array of eight menu titles. This is not an 


Listing 4 

— Cont’d 

WORD STATUS; 

double RESERVED; 

WORD key ■ 0; /* keeps track of keyboard entry */ 

} RQ Header; 

WORD junk; 

typedef struct { /* The dynamic part of the */ 

WORD time * 0; /* default time and menu selection */ 

RQ Header HEADER; /* “INITIALIZE" request */ 

BYTE menu = 0; 

BYTE UNITS; /* header to a device driver */ 

WORD configs; /* number of menus */ 

WORD *ENDING OFFSET; 

char test; /* local char for testing */ 

WORD ENDING SEGMENT; 

char menu end[] = "DMENUEND"; 

char far ‘ARGUMENTS; 

/* Used to find "DEVICE=MENUEND" */ 

} Init Header; 

Idefine 1 menuend sizeof(menu end) - I 

typede? struct { /* Structure to keep track */ 

char bmenu[] = "DMTITLE"; 

WORD str len; /* of location of Config.SYS */ 

/* Used to find “DEVICE=MTITLE" */ 

char menu; /* commands to be dealt with */ 

Idefine 1 bmenu sizeof(bmenu) - I 

char far ‘start; 

char menut[7][70]; 

} Cmd Rec; 

/* store the titles for upto 8 selections */ 

Idefine Last Record -1 

// Idefine Debug = TRUE; 

/* flag to indicate last cmd to process */ 

Idefine row start 9 /* menu start location */ 

void main(void) { 

Idefine col start 12 

WORD i; 

Idefine normal 0x07 /* norman and inverse video */ 

BYTE j; 

Idefine inverse 0x70 /* colors */ 

BYTE k; 

BYTE row; /* variables for screen positioning */ 

BYTE col; 

BYTE m; 

REQUEST 0FFSET->ENDING OFFSET = 0; 

extern WORD MENU CTL END; 

REQUEST_OFFSET->ENDING_SEGMENT = _CS; 

/* tell MS-Dos where our resident portion ends */ 

/* end of resident portion of device driver */ 

M Buffer = REQUEST 0FFSET->ARGUMENTS; 

WORD DOS VERSION; 

/* point to rest of Config.Sys Commands */ 

extern Cmd Rec ENDDATA; 

printstr("MENUC.CTL VI.0 (C) Dec. 6, 1990 by “ 

/* free memory location for dynamic allocation */ 

“Larry Weaver\n\r$“); 

Cmd Rec near ‘MyStorage = & ENDDATA; 

/* print a start up line. */ 

/* set pointer to free memory */ 

DOS VERSION = dosversion(); /‘get MS-Dos version number*/ 

Cmd Rec ‘Crnds; 

if (DOS VERSION < 0X200) ( /* must be greater than 2 */ 

/* make it a pointer to Config.Sys commands */ 

printstr("Wrong Version of Dos, “ 

void leave(void); /* device driver exit point */ 

"requires 2X or greater\n\r$“); 

void clean up(void); 

leave(); 

/* disable non selected Config.SYS commands */ 

1 

char far ‘make coff(char far *Buf); 

for (i =0;i < 8;i++) for (j=0;j < 2;j++) menut[i][j] = 0; 

/* routine to convert non selected Config.Sys * 

/* assume no menu selection titles */ 

* commands to BREAK = OFF */ 

for (;((*M Buffer != LF) & (*M Buffer != CR));M Buffer++){ 

void set menu(BYTE m); /* setup menu select text */ 

void display far(char far ‘Buf); /* display a far string */ 

/* parse MENUC.CTL command line, get default time, menu, * 

void xlat ch(char test); /* make control chars visible */ 

* and title */ 

void menu name(BYTE cmd); 

extern Init Header far ‘REQUEST OFFSET; 

test = *M Buffer; 

/* pointer to Device Request Header */ 

lifdef Debug 

BYTE far *M Buffer; /* some global variables */ 

xlat ch(test); 

BYTE far *Buf Start; 

lendif 

BYTE far ‘Control End; 

if (test «« '“') ( /* see if title 1 */ 

BOOL end found ■ FALSE; 

M Buffer++; 

/* make sure there is a “DEVICE=MENUEND" */ 

for (j=l;(*M Buffer != LF) & (*M Buffer != CR); 

BOOL modified; 

M Buffer++,j++) ( 

/* flag to indicate display screen needs update */ 

lifdef Debug 
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Listing 4 

— Cont’d 

xlat ch(*M Buffer); 

/* parse rest of Config.Sys commands looking for * 

#endif 

* "DEVICE=MENUEND". Will turn all unrecognized commands * 

menut[0][j] = *M Buffer; 

* into "BREAK=0FF" commands in the process. Also parses * 

} 

* rest of menus, and sets up their titles for later * 

/* put text in menu array */ 

* selection. */ 

menut[0][j] = '\0'; /* add terminating 0 */ 


menut[0][0] = —j; /* put length in first element */ 

for (;(*M Buffer == CR) | (*M Buffer == LF);M Buffer++) ( 

break; 

lifdef Debug 

} else if (test == ‘M') { /* see if default menu */ 

xlat ch(*M Buffer); 

test = *(M Buffer + 1); 

lendif 

if ((test > '0') & (test < '9')) menu = test - '1'; 

1 

) else if (test == 1 T‘) ( /* see if default time */ 

test = *M Buffer; 

test = *(M Buffer + 1); 

lifdef Debug 

if ((test > '/') & (test < time = test - 'O'; 

display far(M Buffer); 

} 

lendif 

1 

Control End = M Buffer; 

while ((*M Buffer == CR) | (*M Buffer == LF)) { 

Cmds = MyStorage + i; 

/* go to next command */ 

if (test == 'D') ( 

lifdef Debug 

end found = cmpsnf(M Buffer,menu end,l menuend); 

xlat ch(*M Buffer); 

/* check for "DEV1CE=MENUEND" */ 

lendif 

if (end found) { 

M Buffer++; 

make coff(M Buffer); 

1 

/* deactivate the command line */ 

m = 0; 

Cmds->menu = Last Record; 

if (cmpsnf(M Buffer,bmenu.l bmenu)) { 

break; 

/* see if next command is "DEVICE=MTITLE", if it is * 

) else if (cmpsnf(M Buffer,bmenu,! bmenu)) { 

* set up title for menu 1 */ 

/* check for "DEVICE=MTITLE". If too many titles * 

lifdef Debug 

* then select menu 1 and leave. */ 

display far(M Buffer); 

if (m < 7) { 

lendif 

set menu(++m); 

set menu(m); 

continue; 

1 

) else ( 

Buf Start = M Buffer; 

printstr('Too many menu selections. Must be less" 

i = 0; 

11 than 9!\n\rHit any key to continued"); 

while (lend found) ( 

junk = get key(); 


printstr(''\n\r$"); 


set menu(++m); 


inherent limit; I just didn't want to have to handle two-digit 
menu numbers while parsing MENUC.CTL's command line. Of 
course you can add more numbers to the array, and rewrite 
the command line parsing routine if you need more than 
eight. 


MENU.C 

MENU. C contains most of the device driver, although it looks 
like a normal C program. GENERAL.H (Listing 5) contains some 
definitions I cannot work without. LIB.H (Listing 6) is the 
header file for the runtime library defined in Listing 3. The 
leave() function is not really a function at all; it is just an 
address in DEVICE.ASM (Listing 2). When the C code calls this 
address, DEV ICE. ASM restores the stack and registers to what 
they were when the driver started, and then returns to MS- 
DOS. 

Memory allocation in MENU. C may not be obvious. Remem¬ 
ber that without Turbo's runtime library, you cannot call cal- 
loc() or malloc() for memory management. MENU.C needs to 
allocate memory for Cmd_Rec structures, so it uses the trick: 

Cmd_Rec near *MyStorage = &_ENDDATA; 

This initializes a structure pointer to point just past the last 
byte of the device driver. This is the same area into which the 
stack is growing down. Whenever the code needs to allocate 


□ Request 158 on Reader Service Card □ 
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The User Interface Library for C 

Create FAST & COMPACT 
applications in C 

Vlib is a comprehensive library of over 300 easy 
to use C functions for building sophisticated PC 
applications 

♦ Menus ♦ Forms ♦ Memo Editor ♦ 

♦ Mouse Support ♦ Pop-up Messages ♦ 

♦ Pick Lists ♦ Dialog Boxes ♦ 

♦ Windows ♦ Borders ♦ and more ♦ 

Vlib produces the smallest, fastest programs of 
any C library! 

For Microsoft C and Quick C, Borland Turbo C 
and C++. All memory models. 

Free Demo Disk Available 

Call (408) 984-2256 

Pathfinder Associates VMAN $ 49 

291 Madrone Ave., Santa Clara, CA 95051 online manual for 
FAX (408) 244-5665 BBS (408) 246-0164 VLIB. 


Vlib $ 149 

libraries, manual, 
and source code. 
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another Cmd_Rec structure, it takes the one that MyStorage 
points to, and then increments MyStorage. 

Menu Processing 

After setting the break address and some other simple 
chores, the code in MENU.C gets a pointer to the CONFIG.SYS 
data and reparses it. As stated previously, MENUC.CTL only 
modifies the lines between DEVICE=MENUC.CTL and 
DEVICE=MENUEND. In between those two lines, DEVICE=MTITLE 
commands delimit sections. MENU.C will use the title specified 
by each section to form a menu, allowing the user to select 
which section of the CONFIG.SYS file to execute. 

On the DEVICE=MENUC. CTL line, you can specify which sec¬ 
tion of the CONFIG.SYS file is the default menu choice. You 
can also specify a time delay. The device driver will give the 


user that many seconds to make a choice, otherwise it will go 
ahead and boot with the default choice. You can either 
specify the title of the first section in the DEVICE=MENUC.CTL 
line or add a DEVICE=MTITLE command immediately after it. 

You can view the menu of choices by just hitting a key 
(other than the escape key) when MENUC.CTL displays its 
prompt. You can use the arrow keys to select any menu item, 
ALT-X to turn off all menu items, and carriage return to select 
the current menu item. 

Debugging 

How do you debug the device driver when you make 
changes? This is not a . COM file, so you cannot casually load it 
into a debugger and step through it. If you change the ORG 
OOh statement in DEV ICE. ASM to ORG lOOh, reassemble and 


Listing 4 — Cont’d 


key = EnterKey; 
menu = 0; 

Cmds->menu = Last_Record; 

clean_up(); 

leave(); 


} 

) 

I 

Cmds->start = M_Buffer; 

for (j=0;(*M_Buffer != CR) & (*M_Buffer != LF); 

j++,M_Buffer++); 
if (test ■« 'Z‘) ( 

if (D0S_VERSI0N >= D0S4) *Cmds->start = 'O'; 

/* deactivate all "Unrecognized" commands. */ 

/* Dos 4 Config.Sys has a "REM" capability, so we * 

* use it instead of "BREAK=0FF" */ 

else if (j > 4) { 
make_coff(Cmds->start); 

) 

) else if ((test != -1) & (test != '0')) 

/* don't mess with things Dos has already processed */ 
if (j !* 0) ( 

Cmds->menu ■ m; 
i++; 

Cmds->str_len = j; 

/* store the string length (COFF control) */ 

I 

if (!((WORD) M_Buffer)) break; 

/* can't process more than 64K */ 
if ((WORD) Cmds > OxFOOO) break; 

/* could start interfering with the stack, should * 

* never be this big. */ 

1 

lifdef Debug 
while (!chk_key()); 
lendif 
delay_l (); 
if (!end_found) { 

/* Didn't find DEVICE=MENUEND in the Config.Sys file. * 

* Don't process any more commands, just print an error * 

* message and leave */ 

if (chk_key()) key « get_key(); 
if (key •« EscKey) key = 0; 
if (time | key) { 

printstr("DEVICE = MENUEND has to be added as a " 
''terminating\r\n'' 

"command in CONFIG.SYS before MENUC.CTL ” 

“can function.\r\n" 

"Press and key to continue.$"); 
get_key(); 

) 

leave(); 

} 


if (time) { 

/* if default time not « 0, then give chance to hit a * 

* key. Max time is 9 seconds, then process continues. * 

* If ESC key is hit, process continues immediately. */ 
printstr("\n\r\rPress any key if you wish to modify 

the\n\r" 

''CONFIG.SYS configuration.\n\r" 

"Press Esc for quick bypass of 
MENUC.CTL.\n\r\r$"); 
for (;time;time--) ( 

if (!chk_key()) delay_l(); 
el se ( 

key = get_key(); 
break; 

) 

) 

) else if (chk_key()) key = get_key(); 
if (key *« EscKey) key = 0; 

/* if no key hit in time, then select default and leave */ 
if (I key) ( 

if (menu > m) menu = 0; /* default menu exist? */ 
clean_up(); 

} 

key = 0; 
cl s (); 

/* someone hit a key, set up the menus, and allow the */ 

/* operator to select one. */ 

printstr("Press Up/Down arrow keys to select highlighted" 

■ configuration\r\n" 

“Press Enter to accept configuration 11 
"and exit.\r\n" 

"Press Alt-X to deactivate all configurations " 
“and exit\r\n" 

"Note: Permanent changes are not made to the " 
''CONFIG.SYS file.\r\n\n$"); 

if (menu > (m)) ( /* Does default menu exist? */ 
printstr("Menu$ "); 
w_tty(menu+0x3I); 

printstr(" doesn't exist. Default set to Menu 1 " 

"(see AltX).$"); 

menu = 0; 

) 

if (i) ( /* anything to pick from ? */ 
configs ■ m; 
row = row_start; 
col = 0; 

for (m=0;m <= configs;m++,row++) { 

/* print menu titiles on screen */ 
set_curs(row,col); 
menu_name(m); 
fputsh(&menut[m][1]); 

} 

) else leave(); /* no, go home */ 
m * 0; 
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...ERRORS! 


End your listing errors by subscribing to 
TECH Specialist’s code listings on disk. 



...HIGHER 

PRODUCTIVITY! 


Save hours of typing in long code listings 
and make better use of your time. 



Call 913-841-1631 TODAY! 

For only $30* you’ll receive 12 disks 
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listings. You’ll save 50% off the price 
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magazine and disk for $59.* 


Subscriptions must be prepaid and 
are available on 5.25" or 3.5" 
MS-DOS format only. 


TECH. .. _ 

specialist 


2601 Iowa 

Lawrence, KS 66046 USA 


'foreign prices vary (call for details) 
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row » row_start + menu; 
col = col_start; 
modified = TRUE; 

while ((key != EscKey) & (key != EnterKey)&(key!=AltX)) ( 

/* Allow arrowing through menu titles. Show current * 
* with —>, and Hi-Lited text (if any). */ 

if (modified) { 
set_curs(row,0); 
printstr("--> $"); 

hi_lite(row, col, inverse, menut[row - row_start][0]); 
modified = FALSE; 

) 

key = get_key(); 
switch (key) ( 
case AltX : 
case EnterKey : 
case EscKey : break; 
case DnArrow : 
case UpArrow : { 
modified = TRUE; 
set_curs(row,0); 
printstr(“ $“); 
hi_lite(row, col=col_start .normal, 
menut[row - row_start][0]); 
if (key==DnArrow) { 
if (++m <= configs) row++; 
else { row « row_start; m=0; ) 
break; 

! 

if (m > 0) { row—; m—; } /* down arrow */ 

else ( m * configs; row » row_start + configs; ) 
break; 

) 

case PgDn : 

case PgUp : { 

modified = TRUE; 
set_curs(row,0); 
printstr(" $"); 
hi_lite(row,col=col_start,normal, 
menut[row_start - row][0]); 
if (key==PgDn) { 
m = configs; 

row = row_start + configs; 

}else { 
m = 0; 

row * row_start; 

} 

break; 

} 

} 

) 

if (key — EnterKey) menu = m; 
clean_up(); 

} 


* disable the non selected menu items, and leave * 


★ ★★★★★★★★★★★★★★Hr****** 


void clean_up() ( 

BYTE i; ” 

for (i=0,Cmds=MyStorage; 

(Cmds->menu != Last_Record);Cmds = HyStorage + i) { 

M_Buffer = Cmds->start; 
lifdef Debug 
display_far(M_Buffer); 
lendif 

if ((key == AltX) | (Cmds->menu != menu)) { 
if (D0S_VERSI0N >= D0S4) *H_Buffer = 'O'; 
else if (Cmds->str_len < 5) { 

*M_Buffer = ‘Z';~ 

) else make_coff(M_Buffer); 

} 

lifdef Debug 
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Listing 4 — Cont’d 

displ ay_far(M_Buffer); 
junk = get_key(); 
lendif 


} 

leave(); /* return to DEVICE.ASM */ 

) 


^******************************************************** 

* disable the current config sys command by replacing * 

* it with "BREAKOFF". * 

*★*****★****★★***★****★★**★*★★★************************i 


char far *make_coff(char far *Buf) { 

Buf = Buf + movesnf(Buf,"COFF"); 

for (;(*Buf != CR) & (*Buf != LF);Buf++) *Buf = ' 

return(Buf); 

} 

/a******************************************************** 

* Move the text pointed to by M_Buffer into the current * 

* menu title * 

* ★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★■A :**J 


void set_menu(BYTE m) ( 

BYTE j; 

char far *Buf; 

Buf = M_Buffer + sizeof(bmenu); /* skip MTITLE */ 
for (;(*Buf =* 1 ’);Buf++); /* remove leading spaces */ 

for (j-1;(*Buf != CR) & (*Buf != LF);j++,Buf++) 
menut[m][j] « *Buf; /* put text in menu array */ 
menut[m][j] = '\0'; /* add terminating 0 */ 

menut[m][0] = — j; /* put length in first element */ 
M_Buffer = make_coff(M_Buffer); 

/* deactivate the command */ 

) 


void menu_name(BYTE cmd) { 
switch (cmd) ( 


case 0 

{ printstr( 

case 1 

{ printstr( 

case 2 

{ printstr( 

case 4 

{ printstr( 

case 5 

{ printstr( 

case 6 

{ printstr( 

case 7 

{ printstr( 

case 3 

{ printstr( 


} 

printstr("= $"); 

} 


Menu 1$"); break; ) 
Menu 2$“); break; } 
Menu 3$”); break; } 
Menu 4$“); break; ) 
Menu 5$") ; break; ) 
Menu 6$"); break; ) 
Menu 7$"); break; ) 
Menu 8$"); break; ) 


lifdef Debug 

void display_far(char far *Buf) { 

for (;(*Buf != CR) & (*Buf != LF);Buf++) xlat_ch(*Buf); 

) 


void xlat_ch(char test) ( 
if (test==0) fputsh("<0>"); else 
if (test==CR) fputsh(“<CR>\r\n"); else 
if (test==LF) fputsh("<LF>\n\r"); else 
if (test==SP) fputsh("<SP>“); else 
if (test==BELL) fputsh("<BELL>"); else 
w_tty(test); 

) 

lendif 

/* End of File */ 


link, you can load it into Turbo Debugger. Make sure you don't 
forget to change the ORG statement back. Unfortunately, you 
cannot execute the device driver in the debugger because it 
expects a driver request to be set up and passed in. The tech¬ 
nique I found most useful was the Debug define. If Debug is 
defined, MENU.C shows the command lines before and after 
they are deactivated. You will need to hit a key between 
each line. I used this macro to step through the device driver 
and watch the effects of each operation. That way, I could at 
least find which part of the program had problems. The 
method is a little crude, but it worked quite well for me. 

I would also suggest doing all testing of the driver from a 
floppy. That way if it gets messed up, you can open the flop¬ 
py door and and reboot from the hard drive (a process I be¬ 
came very familiar with during the writing of this driver). 

Conclusion 

You can compile and link the entire device driver with the 
following commands: 


TCC -mt -c -0 -k- -jl -v MENU.C tinylib.c 
TLINK /n /t device menu tinylib.MENUC.CTL,, 


1 hope this article helps anyone contemplating writing 
device drivers. I don't know how portable this method is to 
other C languages, since I only have experience with Turbo. 
Those really observant people will have noted another use for 
this technique (aside from teeny COM files and device drivers). 
By adding the reset vector to the DEV ICE. ASM routine, you can 
use this method to create ROM images directly from Turbo C. □ 


Instant Windows 
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A point-and-click tool lets you design Fields,Help,Editors, 
Spreadsheet-like Tables, Icons,Bitmaps,Directories, 
radio/check boxes,push buttons.list/combo boxes... 

Data Validations in fields, forms and 

tables,e.g.: Custom validations,cross,protected,required, 
lookups, range,date,time,money,lists,pictures(A9!LXB#2$). 


C Code Generated 

Connect to LAtfs,SQL,3270/Hosts,Sybase,Informix, CTree, 
Oracle,BTrieve, dBVista, Paradox,dBase. You can easily add 
in your own logic, modify and regenerate the code. 

Port your application in hours... 

Windows $495.DOS $249.0S/2 PM $995.UNIX/Mac Call. 

800-334-9552 SflXSSS, 

WlnSoft .1016 E. El Camino Real#216,Sunnwale CA 94087 
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Figure 1 

LASTDRIVE = M: 

DEVICE=MENUC.CTL M2 T3 "No QEMM, ZANSI, and 4D0S 
REM The M2 establishes the second Menu as the Default. 

REM The T3 tells MENUC.CTL to print a wait for key 

REM message, then wait for 3 seconds. 

REM ***** 

REM This boot doesn't use QEMM, and as a consequence 
REM there is no loadhi capability. Only ZANSI.SYS and 
REM 4DOS is loaded. 4D0S is not configured to use UMBs. 
BUFFERS = 20 * 

FILES = 20 * 

DEVICE=C:DOS\ZANSI.SYS 
SHELL=C:\4D0S.C0M /E:1024 /A:256 /H:512 /P 

DEVICE=MTITLE Default boot with QEMM, UV, 4D0S 
REM This is the default boot routine. It uses QEMM to 
REM create EMS Memory from 386 Extended memory. It 

REM also loads the UV ANSI device driver and 4D0S. 

BUFFERS=1 * 

FILES=50 * 

DEVICE=C:\DV\QEMM.SYS RAM 

DEVICE=C:\DV\LOADHI.SYS /R:2 C:\UV\ANSI-UV.SYS /B:0 
SHELL=C:\4D0S.C0M /E:1024 /A:256 /H:512 /U /P 

DEVICE=MTITLE No QEMM, and MS-DOS 

REM This group only sets up the Files and Buffers 

REM commands. Nothing else is loaded, and COMMAND.COM 

REM is booted up. 

BUFFERS = 20 * 

FILES = 20 * 

DEVICE=MENUEND 
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The MicroTVacker™ can significantly reduce the 
cost of your next real-time product development 
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Listing 5 (general.h) 

lifndef 

GENERAL 

/* once only */ 

1 define 

_GENERAL_ 1 


1 define 

ERROR 

(-1) 

/* error return */ 

1 define 

FALSE 

0 

/* boolean absolutes */ 

1 define 

TRUE 

(10) 


1 define 

YES 

TRUE 

1* ... and aliases */ 

1 define 

NO 

FALSE 


1 define 

ON 

TRUE 


1 define 

OFF 

FALSE 


Idefine 

UpArrow 

0x4800 


Idefine 

DnArrow 

0x5000 


Idefine 

RtArrow 

Ox4DOO 


Idefine 

LftArrow 

0x4B00 


Idefine 

PgUp 

0x4900 


Idefine 

PgDn 

0x5100 


Idefine 

EscKey 

OxOllB 


Idefine 

EnterKey OxlCOD 


Idefine 

FI Key 

Ox3BOO 


Idefine 

F2Key 

0X3C00 


Idefine 

F3Key 

0X3D00 


Idefine 

HomeKey 

0x4700 


Idefine 

EndKey 

0x4F00 


Idefine 

AltX 

0X2D00 


Idefine 

CR 

OxOd 


Idefine 

LF 

0x0a 


Idefine 

SP 

0x20 


Idefine 

BELL 

0x07 


Idefine 

D0S33 

0x31e 


Idefine 

D0S4 

0x400 


typedef 

unsigned char BYTE; 

/* 8-bit bytes */ 

typedef 

unsigned short WORD; 

/* 16-bit words */ 

typedef 

unsigned long DWRD; 

/* 32-bit doublewords */ 

typedef 

BYTE 

BOOL; 

/* boolean switches */ 

lendif / 

_GENERAL_ */ 


/* End of 

File */ 




Generally Useful Definitions 


Listing 6 (lib.h) 



WORD get key(); 

/* 

GET KEY.C */ 

BOOL chk key(); 

/* 

CHK KEY.C */ 

WORD fputsh(char *str); 

/* 

FPUTSH.ASM */ 

WORD strlen(char *str); 

/* 

STRLEN.ASM */ 

void printstr(char *str); 

/* 

PRINTSTR.C */ 

WORD dosversion(void); 

/* 

DOSVER.C */ 

void w tty(char c); 

/* 

W TTY.C */ 

void set curs(BYTE row, BYTE col); 

/* 

SET CURS.C */ 

void cls(void); 

/* 

CLS.C */ 

void w attr(char c, BYTE attr); 

/* 

W ATTR.C */ 

void delay l(void); 

/* 

DELAY l.C */ 

void hi lite(BYTE row, BYTE col, 



BYTE attr, WORD length); 

/* 

HI LITE.C */ 

BOOL cmpsnf(char far *bufl, 



char near *strl, WORD 1); 

/* 

CMPSNF.ASM */ 

WORD movesnf(char far *bufl. 



char near *strl); 

/* 

MOVESNF.ASM */ 

/* End of File */ 



Prototypes for Teeny Runtime Library 
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TECH Tips 



Leor Zolman 


Please send us your best 
tricks and hacks — those 
clever pieces of code to 
make things work the 
way they should! You'll 
receive at least $50 for 
each tip that we print. 

Send your submissions to.- 
TECH Tips 
Leor Zolman 
2601 Iowa 
Lawrence, KS 66046 


Determining the Amount of Unused Stack 


Robert A. Raddiffe 
Computer Application Engineers, Inc. 

517 North 19th Street 
Philadelphia, PA 19130 

To minimize the amount of wasted memory space allocated to the stack, it is 
necessary to know how much of the stack actually remains unused throughout the 
entire duration of a program’s execution. When this is known, then the stack size 
can be reduced, thus freeing up memory that can either become available for use as 
data or the heap. 

Since the required size of the stack is always a "best guess," unless a stack-over¬ 
flow runtime error is encountered, the stack size specified (2048 default) is normally 
left unchanged. 

The attached mark_stack() function will "paint” the unused portion of the stack 
upon entry to function mainO, and then schedule report_stack() for execution 
using atexitf), forcing report_stack() to be invoked upon normal program ter¬ 
mination. At that point a measure of the “clean” stack space remaining can be 
determined and displayed. With this information, an intelligent decision can be made 
to “re-size” the stack accordingly. 

The code for stack.c (Listing 1) is generalized for use with either the Microsoft or 
Borland C compilers, and for any memory model you select. It was interesting to find 
how differently Microsoft and Borland have elected to map their memory models, 
and the impact of those differences upon where the stack and heap areas of 
memory are allocated. 



Rounding fl oats 


Craig Banning 
Rt 5, BOX 649 
Big Pine Key, FL 33043 

In April's Applying C, “The Mathematical Programmer,” page 66, Scott Robert Ladd 
says "Floating-point numbers represent an approximation of a decimal value, paving 
the way for rounding errors." Sad but true! 

That reminded me of my “Perfectly Rounded floats" article in the February 1988 
issue of The C Users Journal. In it, I described my rounding function, shown in Listing 2. 

In brief, it moves the double's decimal point right one place past the digit you 
want to round on (p). Then it rounds, and the return statement truncates that last 
digit. 

That's how you round floats perfectly! 



A long time ago, Leor Zolman wrote and distributed the BDS C Compiler for CP/M 
(what's that?). Following a several-year hiatus from computer-compulsiveness to learn 
some people skills, he got married, dragged his disbelieving wife to Kansas and joined 
the staff of R&D Publications, Inc. Two years later his wife has almost forgiven him. 
You can reach him at leor@rdpub.com or uunetlbdsoft'.rdpub! leor. 



























Listing 1 


/*=== = = ==== = = = = = =: = = =: === = = =:====Start====== === = === = = = = = = = = = === = = === = -=*/ 

/* mark_stack(): reports the amount of stack space that remains */ 
/* unused throughout a C program's execution; useful for adjusting */ 
/* the STACK size smaller to save memory; suitable for use with */ 
/* any Microsoft (MSC) or Borland (BC) C compiler, and for any */ 
/* memory model (T,S,M,C,L,H); software adapted from the book, */ 
/* ENCYCLOPEDIA C, by R.Radcliffe (Sybex/1991), Fig 15.12, Pg 645. */ 

linclude <dos.h> /* FP_SEG(), FP_0FF() */ 
#include <stdio.h> /* printf() */ 
#include <stdlib.h> /* exit() */ 


/* 


custom prototypes 


*/ 


void mark_stack(void); 
static void report_stack(void); 

/*-extern/stati 

#if defined(_MSC_VER) 
extern char end; 
lelif defined(_TURB0C_) 
extern unsigned _stklen; 

#el se 

lerror "This software IS NOT 
#endif 


/* custom function prototype */ 

/* custom function prototype */ 

: data-*/ 

/* _MSC_VER predefined by MSC */ 

/* MSC stack bottom in crtO.asm */ 

/* _TURBOC_ predefined by TC */ 

/* BC stack size for any model */ 

suitable for your C compiler!!" 


static char far * st_top; 
static char far * st_bot; 
static char far * ptr; 
static unsigned st_seg; 
static unsigned st_ptr; 
static char mark = Oxff; 
static unsigned unused; 

/*. 

void mark_stack(void) 

{ 

#if defined(_MSC_VER) 

_asm ( 

mov st_seg, ss 
mov st_ptr, sp 
} 

lelif defined(_TURBOC_) 

st_seg » _SS; 
st_ptr = _SP; 
lendif 

FP_SEG(st_top) = st_seg; 
FP_OFF(st_top) = st_ptr; 

lif defined(_MSC_VER) 

st_bot = (char far *) &end; 
lendif 


/* TOS (high&) of unused stack */ 
/* BOS (low&) of unused stack */ 
/* scratch pointer variable */ 

/* current SS register value */ 
/* current SP (SS:offset) value */ 
/* any "clean" stack footprint */ 
/* count of unused stack bytes */ 

*/ 

/* begin function mark_stack() */ 


/* MSC start of inline assembly */ 
/* MSC get current SS register */ 
/* MSC get current SP register */ 

/* BC inline asm requires TASM */ 
/* BC get current SS register */ 
/* BC get current SP register */ 


/* TOS segments for MSC + BC */ 
/* TOS offsets for MSC + BC */ 

/* calculate MSC BOS farS */ 


function mark_stack() 


lif defined(_TURB0C_) /* calculate TC BOS farS */ 

FP_SEG(st_bot) - st_seg; 

lif defined(_TINY_) || defined(_SMALL_) || defined(_MEDIUM_) 

FP_OFF(st_bot) = Oxffffu - _stklen + lu; 

lelif defined(_COMPACT_) || defined(_LARGE_) || defined(_HUGE_) 

FP_OFF(st_bot) = OxOOOOu; 
lendif 
lendif 



Reading a Keyboard’s 
Extended Scan Codes 


Tom Wurzbach 
1515 NW 29th Road, C-2 
Gainesville, FL 32605 


I'm writing in response to Jim Davis' 
"Letter to the Editor” in your January 
1991 issue. He requested information 
on techniques for reading the extended 
scan codes available on the enhanced 
(or 101-key) keyboard. 

BIOS interrupt 16h provides keyboard 
services for the PC. Typically, it is called 
with AH set to one of three values, 
depending on type of service the pro¬ 
gram needs. These three values are 
OOh, Olh and 02h. OOh sets the zero flag 
to 0 and returns (in AX) the scan code 
of the next key in the keyboard buffer, 
if there is no key in the buffer, the zero 
flag is 1. Olh returns (in AX) the scan 
code of the next key in the keyboard 
buffer, if there is no key in the buffer it 
waits until a key is pressed. 02h returns 
the current shift state of the keyboard. 


Notice to TS 
Subscribers 

Occasionally, TECH Specialist 
makes its mailing list available to 
vendors of products we think our 
readers will find interesting. Cur¬ 
rent subscribers receive free in¬ 
formation in the mail from these 
vendors. 

If you prefer that your name 
not be used in these mailings, 
please let us know. Just copy or 
clip this form and send it with 
your name and address to: 


TECH Specialist 
2601 Iowa 

Lawrence, KS 66046 


TECH. .. 
specialist 
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The only problem with these functions 
is that they do not return unique codes 
for keys on the keypad on enhanced 
keyboards. 

A special group of functions were 
added to I NT 16 to deal with the en¬ 
hanced keyboards - they are lOh (key 
ready?), llh (next key), and 12h (shift 
state) and work similarly to OOh, 01 h, 
and 02h. They return unique codes for 
every key on the enhanced keyboard. 
To make sure the computer's BIOS sup¬ 
ports the enhanced codes, you must 
mask the value at 0040:0096h (the key¬ 
board status byte) with lOh, if the result 
is lOh, the system supports enhanced 
codes. 

Using TASM, I’ve implemented three 
C-callable routines in Listing 3 - 
kbhit(), getkey() and getshift(). I 
use these functions, and they work on 
every computer I've encountered. List¬ 
ing 4 gives a sample program that uses 
all three functions. 

To assemble and compile the sour¬ 
ces, assuming they are named ex- 
tkeys.asm and testkeys.c, use the fol¬ 
lowing commands: 


Listing 1 — Cont’d 

ptr = st_bot; /* set low& of unused stack */ 

while (ptr < st_top) *ptr++ ■ mark; /* walk "cleanly" on the stack */ 

atexit(report_stack); /* log function with atexit() */ 

) /* end function mark_stack() */ 

/*-function report_stack()-*/ 

static void report_stack(void) /* begin function report_stack()*/ 


{ /* atexit() style prototype */ 
ptr = st_bot; /* set low& of unused stack */ 
while (*ptr++ == mark) unused++; /* remaining "clean" footprints */ 
printf("\nUnused Stack = %u Bytes", unused); 

} /* end function report_stack() */ 

/*-embedded test driver main()-*/ 

#if !defined(NDEBUG) /* conditional compilation */ 
int main (void) /* embedded test driver main() */ 
{ 

/* any auto/static data here! */ 
mark_stack(); /* ENTER AS 1ST EXECUTABLE STMT */ 
/* remaining logic of main() here! */ 
exit(O); /* report_stack() upon exit */ 
) /* end function main() */ 
#endif 


/* End of File */ 


tasm /mx extkeys.asm 
bcc testkeys.c extkeys.obj 


I hope this is helpful to anyone who 
has run into problems similar to Mr. 
Davis'. 


Vi 


Program FASTER with... 

CC-RIDER 



or the new 


C++ RIDER 


POP-UP SOURCE BROWSERS FOR ANY EDITOR ! 




CROSS-REF Editing! Source Analysis! QuickHelp, too! 


Instantly pop-up your 
symbol definitions with a 
hypertext hot-key inside 
any editor! The Standard 
Edition has Source View, 
Edit and Paste commands. 
And the powerful 
Professional Edition even 
lets you walk through all 
uses of a symbol in your 
code as you edit I 
C++ RIDER fully supports 
C++ v2.1, including 
classes, constructors, 
overloading, etc. 


Build a database of symbol 
information with our 
powerful source code 
analyzer which provides a 
wealth of useful output, 
like fully commented static 
and global function 
prototype ttndude files 
and a detailed log file 
showing WHERE AND 
HOW all your symbols are 
used. And It now uses 
expanded memory for 
lightning fast source code 
scanning! 


CCSYM can also create a 
help database/oryour 
program which is 
compatible with Microsoft's 
help system, QuickHelp. 

All symbols in your 
application are accessible 
from QuickHelp’s menus, 
with documentation 
extracted automatically 
from your original 
source code. 

Works with ANSI/Microsoft 
C, plus AT&T/Zortech/ 
Borland C++. 
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Listing 2 


/* FROUNDL Round float n to precision p, return 

| - long = n * 10 A p. 

*/ 

linclude <math.h> 

long froundl(const double n, const int p) 

{ 

long r; 

r * (1ong)(n * pow(10.0, (double)(p+1))); 
if ((r % 10L) > 4L) 
r += 5L; 

return(r / 10L); 


void main() /* Test driver */ 

( 

double val; 
long result; 

val = 3.141592654; 

printf("Rounding the value: %10.81f\n", val); 

printf("to 2 places: %ld\n", froundl(val, 2)) 
printf("to 3 places: %ld\n", froundl(val, 3)) 
printf("to 4 places: %ld\n", froundl(val, 4)) 
printf("to 5 places: %ld\n", froundl(val, 5)) 

) 

/* End of File */ 


Listing 3 

extkeys.asm -- Function package to handle extended keycodes 
Written by Tom Wurzbach 


MODEL small, C 


CODESEG 

public kbhit, getkey, getshift 


---> DoKeyboardlnt 

INT 16, function OOh, Olh, 02h are keyboard read routines that do not 
recognize different keys on enhanced (or 101-key) keyboards. Functions 
lOh, llh, and 12h do recognize these extended codes. This routine check 
the keyboard bit at 0040:0096h before calling INT 16 to adjust the function 
number if the keyboard is enhanced. 


This routine should be called with bh set to one of the following values, 
depending on the desired function: 


PROC 


OOh Check if a key is pressed. 

Olh Read the next key from buffer, wait if no key is ready 
02h Get the current shift state 

DoKeyboardlnt ; modifies ax 

push ds 

mov ax, 40h 

mov ds, ax 

mov ah, ds:96h 
pop ds 

and ah, lOh 

or ah, bh 

xor al, al 

int 16h 

ret 


ENDP 



Creating “Read Only" 
Data Under OS/2 


Tony Ingenoso 
IBM OS/2 System Test Group 
Boca Raton, FL 


Here's a trick for OS/2 programmers 
who are having mysterious memory 
overwrite problems. 

Often we would like to prevent func¬ 
tions from modifying certain data items; 
under DOS this was impossible, since all 
PC memory is read/write in real mode. 
In OS/2 protected mode, however, it 
can be done by creating CODE segments 
to be treated as “read only” data seg¬ 
ments. 

The idea is that a code segment in 
OS/2 can't be written to, and any at¬ 
tempt to do so will cause an instant 
Trap-D. Since debugging traps is much 
easier than debugging memory over¬ 
write problems, we use OS/2’s ability to 
give a code segment alias for data seg¬ 
ments, effectively yielding read-only 
pointers we can then pass to functions 
that should not be modifying their data. 

To create a read-only pointer for 
data, we use the DosCreateCSAliasf) 
API. Normally, people only think of this 
API when they need to generate code 
on the fly and then execute it. By using 
such a code segment alias for data, 
however, you can construct pointers 
that will cause any ill-behaved module 
to generate a GP-fault upon the first at¬ 
tempt to modify that read-only data. 

To build the test case use any MS 
compatible C compiler for OS/2 and 
compile with the following command: 

CL /Zi readonly.c 

This test program assumes an OS/2 1.2 
or 1.3 toolkit is installed. The concept 
works, however, under all versions of 
OS/2. 

If the test program is run under 
CodeView or Multiscope, any attempts 
by the test program to alter read-only 
data will cause the debugger to put 
you right on the offending line of code 
where the trap occurred. □ 
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Listing 3 — Cont’d 


; —-> kbhit 

; Returns 0 if no key is ready otherwise, the scan code of the next key 
; in the keyboard buffer is returned. No keys are removed from the buffer. 

PROC kbhit 


push 

bp 

mov 

bp, sp 

mov 

bh, Olh 

call 

DoKeyboardlnt 

jnz 

KeyHit 

xor 

ax, ax 

jmp 

SHORT KbRtn 

KeyHit: 

mov 

ax, 1 

KbRtn: 

mov 

sp, bp 

pop 

bp 

ret 

ENDP 

kbhit 


; —> getkey 

; Returns the scan code of the next key in the keyboard buffer and 
; removes the key from the buffer. Will wait until a key is pressed to 
; return. 

PROC getkey 
push bp 
mov bp, sp 
xor bh, bh 
call DoKeyboardlnt 
mov sp, bp 
pop bp 
ret 

ENDP getkey 
; —> getshift 

; Returns the current shift state of the keyboard. Shift state may be 
; determined as follows: 

; in AL 


bit 

0 

Right-Shift pressed 

bit 

1 

Left-Shift pressed 

bit 

2 

Ctrl pressed 

bit 

3 

Alt pressed 

bit 

4 

Scroll lock on 

bit 

5 

Num lock on 

bit 

6 

Caps lock on 

bit 

7 

Ins on 


; Enhanced keyboards return further shift-state information in AH. 
; bit 7: SysRq key pressed 

; bit 6: Caps lock key pressed 

j bit 5: Num lock pressed 
; bit 4: Scroll lock pressed 
; bit 3: Right-Alt pressed 

; bit 2: Right-Ctrl pressed 

; bit 1: Left-Alt pressed 

; bit 0: Left-Ctrl pressed 

PROC getshift 

push bp 
mov bp, sp 

mov bh, 02h 

call DoKeyboardlnt 
mov sp, bp 

pop bp 

ret 

ENDP getshift 

END 

; End of File 
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Listing 4 

/* 


unsigned ins : 1; 

* testkeys.c: 


} bit; 

}; 

* Test program for Tom Wurzbach's extended 

* scancodes function package 

main() 

*/ 


{ 



union KEY k; 

linclude <stdio.h> 


union SHIFT s; 

linclude <dos.h> 


puts("Press keys, Ctrl-Break to exit 11 ); 

extern int getkey(void); 
extern int getshift(void); 


while (1) 

extern int kbhit(void); 


{ 

k.scan code = getkeyO; 

union KEY 


s.shift = getshift(); 

{ 


printf(''0x%04x 0x%02x ", k.scan code, 

char ASCII code; 


k.ASCII code); 

int scan code; 


if (s.bit.rshift) printf("RShift "); 

}; 


if (s.bit.Ishift) printf("LShift "); 
if (s.bit.Ctrl) printf(“Ctrl "); 

union SHIFT 

( 


if (s.bit.alt) printf("Alt "); 
if (s.bit.scroll) printf("Scroll "); 

int' shift; 


if (s.bit.num) printf("Num "); 

struct 


if (s.bit.caps) printf("Caps "); 

{ 


if (s.bit.ins) printf("Ins "); 

unsigned rshift 

i; 


unsigned Ishift 

i; 

printf("\n"); 

unsigned Ctrl 

i; 

) 

unsigned alt 

i; 

) 

unsigned scroll 

1; 


unsigned num 

1; 

/* End of File */ 

unsigned caps 

1; 
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Turbo Pascal 

MS QuickPascal 


sec 
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sec 

Bytes 

sec 

Bytes 
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4.4 

1682 

9.2 

2480 

11.6 

3824 

Whetstone 

12.9 

6352 

73.9 

14944 

60.4 

15456 

Quicksort 

3.8 

1866 

5.5 

2496 

5.7 

4544 

Ackerman 

4.9 

1640 

4.9 

2368 

7.8 

4704 

Fibonacci 

15.1 

1614 

15.8 

2352 

26.4 

4688 

Sequ. Write 

4.9 

1932 

16.8 

2192 

16.9 

4224 

Min 

* 

860 

* 

1312 


1744 

i 

46.0 

15946 

126.1 

28144 

128.8 

39184 
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Listing 5 


SEL MakeRead0nly(SEL data) 

/ 

* readonly.c: Test program for Tony Ingenoso's 

I 

SEL CodeSel; /* Code alias for read only data */ 

* method for created “Read only" 


* data under OS/2. 

/* 

* 

Note that DosCreateCSAliasf) gives back a ring 2 

* The idea is that a code segment in OS/2 can't be 

conforming selector. We'll frob it into a normal 

* written to, and any attempt to do so will cause 

ring 3 selector like any other normal data selector. 

* an instant Trap-D. Since debugging traps is 

*/ 

* *MUCH* easier than debugging memory overwrite 

if (DosCreateCSAlias(data, ACodeSel)) 

* problems, we use 0S/2's ability to give a code 

( 

* segment "alias" for data segments to make read 

printf("Can't make aliasV); 

* only pointers we pass to functions that should 

exit(-l); 

* not modify their data. 

} 

****************************************************** j 

/* Force ring 2 conforming alias into ring 3 */ 
return (CodeSel | 0x0003); 

♦define INCL D0SHEMMGR 


♦include <os2.h> 

void main(void) 

♦include <stdio.h> 

( 

#include <process.h> 

SEL DataSel; /* Selector for read/write data */ 

void WriteOKfUSHORT FAR *ptr) 

/* 

( 

Allocate a bit of memory to play with(4 bytes). 

*ptr = 10; /* This reference will be OK */ 

*/ 

printf("Read/Write assignment complete\n\n"); 

} 

if (DosAUocSeg(4, ADataSel, 0)) 

( 

printf(”Can't get memoryW); 

void WriteNot0K(USH0RT FAR *ptr) 

/ 

exit(-l); 

printf("About to do R/0 assignment(wil1 Trap-D)\n“); 


printf("$trike a key to cause the trap\n"); 

WriteOK(MAKEP(Data$el, 0)); 

getch(); 


*ptr = 10; /* This reference will cause a Trap-D */ 

} 

WriteNot0K(MAKEP(MakeRead0nly(DataSel), 0)); 

) 

/* End of File */ 
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Loading TSRs 
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A series of small terminate-and- 
stay-resident programs (TSRs) can eat 
up memory at an alarming rate. Each 
TSR that does not use its program seg¬ 
ment prefix (PSP) wastes at least 272 
bytes. Each TSR has a 16-byte memory 
control block (MCB), the 256-byte PSP 
and maybe a copy of the used portion 
of the environment with its MCB. A bet¬ 
ter method with only 18 bytes of over¬ 
head is the dummy device driver. 

You do not need to learn everything 
about device drivers to use this 
method. You can easily convert most 
TSRs by using a standard header and a 
different termination instruction se¬ 
quence. You can debug your program as 


A y y^VK A A rf V 0 S Y"ft S * £ * a 0 <V X 

WftAi M a 

V ^ A ■ A V M B- -I uu Jl n. 4 A v - IU A <A \j 1* A x AAJ “a iu aai . 



„ v„ 


|y a8 g_. §y> ST<ay.» 4 Vy 4 L 

»» «» “S >v »«*'•je r °°°^& * *•** a v s®* s r ”~v. 4 * «v t ’» °» r x, *" 

.* “ 58 ’CoTs** •« 88 “Vs** f« , " 58 s.“ ,? <.ii« ,> r»”“ __ „ . 

A? a v s x r»/ a* ( s v s^v, K< s «a v C,% s * ivs>^a «»yA a v ^ 

' L,v *' • ''■■■ ^ -5 a - "= 8 T<yJ^ & ? ■* - 



» 5^ 

t J» * *"" 

> s wv 

si,5s s 

^ , “8“^££»“*3c«’y 

VJ , K.*.3 , i l j^WW 

«A a V 






? rt? i l< ? py \ 14 s < ?rS> \ l< y&& ? ris % ^ “I L< V|* 

*J ?>.* ~ :il^ VJ T P." SS««^ rp; S > */^ vC r r ; ISt*'»yX t>; 5 >*^ 


V «&% 5 IV M 


” *x S' * i ❖ ^ w * * jyX ?' - -tf ^ s - ; 


v « 

’ « -» *2* | » vsa t 

W - ~ 5< -A ? 991 X * 

Page 48 - TECH Specialist ^ 

V«^8 9 ^ a&Xc* 


eS3{)Oft“ <av x«x5 A ' 66 »SS«)c“' 

JJSJ “ * * “♦«« 9 


»C* ^ k^s^ 8 *•#?. C 

"ah, % , 500 8 x ^ „jc v 


September 1991 


\ r^_*. lA ? r^, f kfc lA fe ^ ^ 4 1 S , ^ rt 



LU 

CD 


CC 

O 

CO 

CD 


>- 

< 

o 

o 


NO POSTAGE 
NECESSARY 
IF MAILED 
IN THE 

UNITED STATES 


BUSINESS REPLY MAIL 

FIRST CLASS MAIL PERMIT NO. 682 LAWRENCE, KS 

Postage will be paid by addressee 

TECH. .. 

specialis 

t 


2601 Iowa St. 

Lawrence, KS 66046-9950 


CO 




FREE 

Product 

Information 

Use this postage paid 
card to stay up to date 
on products 
that affect 
your productivity. 

Just fill out the card at 
the right and 
drop it in the mail. 


TECH. .. _ 
specialist 


Please help us serve you by 
answering the following: 

1) I program: 

□ for a living 

□ as a hobby 

□ as a manager 

2) I program in: 

□ MS-DOS 

□ Macintosh 

□ XenixAJNIX 


2601 Iowa St. 
Lawrence, KS 66046 
(913) 841 -1631 FAX: (913) 841 -2624 



Use with the September 1991 issue only. 


NAME 


3) I program most frequently in: COMPAN 

□ Assembly □ BASIC 

□ Pascal □ C - 

□ Other _ _ 

□ Please send me subscription crTY/STATE/ZIP 

information. 




2.9 


PHONE 













































TECH. .. . 
specialist 



□ YES! Send me 12 issues of TECH Specialist for only $29! 

□ 2 years (24 issues) for $54 □ 3 years (36 issues) for $77 

□ Bill Me □ Visa □ MasterCard 


Number_ Exp. 

Signature_ 


Name 


Company 


Address 

City 

State 


Zip 


Country/Province/Mailcode 2 9 

Please allow up to six weeks for deliveiy of first issue. Orders outside the US must be prepaid in US funds. CANADA/MEXICO 
subscriptions are: 1 year - $38; 2 years-$63; 3 years - $86. Overseas subscriptions are: 1 year - $48; 2yeare-$88; 3 years-$126. 



(/> 

c 

GO 

C/> 

O 

2 

CD 

m 


NO POSTAGE 
NECESSARY 
IF MAILED 
IN THE 

UNITED STATES 


BUSINESS REPLY MAIL 

FIRST CLASS MAIL PERMIT NO. 682 LAWRENCE, KS 

Postage will be paid by addressee 

TECH. .. 
specialis 

t _ 


2601 Iowa St. 

Lawrence, KS 66046-9950 


FREE 

Product 

Information 

Use this postage paid 
card to stay up to date 
on products 
that affect 
your productivity. 

Just fill out the card at 
the right and 
drop it in the mail. 


illiiilliilliiiilitlilliililiililiiiliilliiltliilil 


































Clifford J. Vander Yacht 


With CONFIG.SYS 


a TSR and then use different installation code to make it a 
dummy device driver. By including an additional installation 
routine, the resulting .EXE file loads either as a device driver or 
as an executable program. 

Most of the code in your TSR directly transfers to a dummy 
device driver. The restrictions for your resident code are the 
same in both cases. All of the DOS functions are available 
while installing the dummy device driver except the standard 
file handles, stdaux and stdprn. You can use the arguments 
to the DEVICE = line in your CONFIG.SYS file as the equivalent 
of the command line for information while installing the 
dummy device driver. You can even make the loading interac¬ 
tive by using stdin, stdout, and stderr as either DOS console 
functions or as file handles. There is one drawback: You can¬ 
not have resident code that requires a PSP (PRINT. COM needs 
a PSP for its own file operations so it can’t be a dummy device 
driver). 


SYSINIT 

At boot time, SYSINIT, the non-resident portion of the first 
file loaded (either 10. SYS or IBMBIO.COM), relocates and initial¬ 
izes the second file ( MSDOS.SYS or IBMDOS.COM), which is the 
DOS kernel. SYSINIT then reads the CONFIG.SYS file and 
analyses it. SYSINIT loads each device driver by using the DOS 
EXEC function. It makes no copy of the environment as no 
environment exists at this time. It also doesn’t create a PSP, 
since a device driver doesn’t need one. 

The structure for a Dummy Device Driver is not very com¬ 
plicated. It requires a header of 18 bytes and a few special 
instructions to terminate. Two examples follow to illustrate 
this technique. One increases your type-ahead buffer and the 
other keeps text from scrolling off the screen. 
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Listing 1 


.132 


PAGE 

TITLE TYPEAHED - Expands type ahead buffer to 127 chars. 
COMMENT $ 

Assemble, link and convert as follows: 

MASM TYPEAHED; 

LINK TYPEAHED; 

EXE2BIN TYPEAHED TYPEAHED.SYS 

Install by adding the following line to CONFIG.SYS 
DEVICE=TYPEAHED.SYS 

Program changes default buffer pointers to a new area 
contained herein if this new area is within the 64K 
limit of the segment at 0040. This new buffer is 128 
characters (words) long and is always loaded even if 
not used. The buffer is reset to empty. If the error 
message is displayed, move the line nearer the beginning 
of the CONFIG.SYS file. The command should always be 
ahead of any RAMDisk loader. 

The address of the buffer is adjusted to bypass a bug 
in the DOS 2.xx CON driver and ANSI.SYS.$ 

************************************************************ 
* * 

* Dummy Device Driver Header * 

* * 

************************************************************ 


CSEG 

SEGMENT 




ASSUME 

DS:NOTHING, ES:NOTHING 



ORG 

00000H 


; For all device drivers 

Strat: 








MOV 

WORD PTR Packet,BX 

; Save Packet address 

Header 


DD 

-1 

; One device 

MOV 

WORD PTR Packet+2,ES 




DW 

08000H 

; Character device 

PUSH 

BX 

; Save all registers used 

StratA 


DW 

Strat 

; Strategy entrance 

PUSH 

DS 


IntrA 


DW 

Intr 

; Interrupt entrance 

PUSH 

AX 




DB 

'Typeahed' 

; 8 character dummy name 

PUSH 

CX 







PUSH 

DX 



************************************************************ 


Resident data 


************************************************************ 


Chars 

EQU 

128 

Bytes 

EQU 

Chars*2 

NewBuff 

EQU 

$ 

EndBuff 

EQU 

$+Bytes 


Buffer start 
Buffer end 


************************************************************ 
* * 

* Resident code * 

* * 

************************************************************ 

ASSUME CS:CSEG, DS:NOTHING, ESrNOTHING 

Note: TYPEAHED has no resident code, just a buffer. 

************************************************************ 


Installation data 


************************************************************ 


ROM BIOS DATA AREAS 


DATA 

SEGMENT 

AT 00040H 


JMP 

SHORT Installed 



ORG 

0001AH 


TooHigh: 



BUFFER_HEAD 

DW 

KBJUFFER 

POINTER TO HEAD 

MOV 

DX,OFFSET THMess 

; Too High message 




OF KEYBOARD BUFFER 

Installed: 



BUFFER_TAIL 

DW 

KB_BUFFER 

POINTER TO TAIL 

PUSH 

CS 

; Make DS = CS for DOS 




OF KEYBOARD BUFFER 

POP 

DS 


KB BUFFER 

DW 

16 DUP(?) 

ROOM FOR 15 ENTRIES 

ASSUME 

DS:CSEG 


KB_BUFFER_END 

LABEL 

WORD 


MOV 

AH,9 

; Output message 


ORG 

00080H 


INT 

021H 


BUFFERJTART 

DW 

KBJUFFER 

ADDRESS OF START 

POP 

AX 

; From highest segment 




OF KEYBOARD BUFFER 

AND 

AX.OFFFOH 

; rounded down 

BUFFER_END 

DW 

KBJUFFERJND 

ADDRESS OF END 

MOV 

BX.CS 

; and this segment address 




OF KEYBOARD BUFFER 

SUB 

BX.SEG DATA 

; less the DATA address 

DATA 

ENDS 



SUB 

AX.BX 

; find the paragraphs used 


DEVICE DRIVER REQUEST PACKET 


IOPacket 

STRUC 


10 CMDLEN 

DB 

7 

10 UNIT 

DB 

? 

10 CMD 

DB 

? 

10 STATUS 

DW 

? 


DB 

8 DUP(?) 

10 MEDIA 

DB 

7 

10 ADDRESS 

DW 

7 


DW 

? 

10 COUNT 

DW 

? 

10 START 

DW 

7 

IOPacket 

ENDS 


; INSTALLATION 

DATA 

Init PROC 

FAR 


Packet 

DD 

0 

THMess 

DB 

'Too high 

Message 

DB 

'TYPEAHED 


Request packet address 


************************************************************ 


Installation code 


************************************************************ 


NORMAL TSR INSTALLATION 


MOV 

SUB 

ADD 

PUSH 

CMP 

JNB 

SUB 

MOV 

SHL 

MOV 

MOV 

ASSUME 

ADD 

AND 

CLI 

MOV 

MOV 

MOV 

ADD 

MOV 

STI 

MOV 


AX.CS ; From this segment address 
AX.SEG DATA ; subtract the DATA address 
AX,(EndBuff-Header+0FFH)/16 

; and add buffer size 
AX 

AX.01000H ; Test within one 64K segment 
TooHigh ; No, do not change pointers 
AX,(EndBuff-Header+OFFH)/16 

; Get segment difference 
; Convert to byte difference 


CL,4 
AX, CL 

BX.SEG DATA 

DS.BX 

DS:DATA 

AX,OFFSET NewBuff+OFFH 
AX.0FF00H 

BUFFER_HEAD,AX 
BUFFER_TAIL,AX 
BUFFER_START,AX 
AX,Bytes 
BUFFER_END,AX 

DX,OFFSET Message 


Change info in DATA segment 


Calculate offset of beginning 
Drop last byte (D0S2.xx fix) 
Turn off keyboard 
Put into buffer pointers 

and buffer addresses 
Add in buffer byte size 
for buffer end address 
Turn keyboard back on 
OK message 


MOV 

SHL 


CL,4 
AX, CL 


Convert to bytes 
to save for buffer 
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Listing 1 

-Cont’d 


SPECIAL 

DDD TERMINATION 

Intr: 



; - 



RET 

; Exit device installaion 



Init 

ENDP 


ASSUME 

DS:NOTHING 




LDS 

BX,DWORD PTR Packet ; Restore Packet info 

CSEG 

ENDS 


MOV 

WORD PTR [BX+IO ADDRESS],AX 


END 



; Set memory request 




MOV 

WORD PTR [BX+IO ADDRESS+2],CS 

; End 

of File 


MOV 

[BX+IO STATUS].00100H ; Set done bits 




POP 

DX ; Restore registers used 




POP 

CX 




POP 

AX 




POP 

DS 




POP 

BX 





TYPEAHED 

The program that enlarges the keyboard buffer works by 
pointing the BIOS's keyboard buffer into its own data area. 
Since the BIOS pointers are not far pointers, this program 
depends upon the fact that device drivers are loaded into low 
memory, usually within segment 0040 hex. TYPEAHED works 
with everything except some keyboard buffer programs and 
Ashton Tate's MultiMate. Listing 1 of TYPEAHED. ASM shows an 
ASSUME statement which controls the assembler to produce 
segment overrides where necessary. All device drivers have 
zero as their origin even if you convert the .EXE file to a 
binary file with EXE2BIN. The double word at Header is -1 
(FFFF FFFF hex), to indicate to the device driver loader that 
there is only one device in this driver. 


Device drivers are either block devices such as disk drives 
or named character devices. I use the character device type 
identified by the 8000 hex value. The next two words in the 
device header point to the two entry points that DOS will call 
during initialization. These two addresses must point to in¬ 
structions within the same segment as the header, but a 
device driver is not limited to just a single segment. Because 
the dummy device will be unusable, the code uses these two 
addresses only during initialization and you could use them 
for anything else later. 

The next eight bytes in the header contain the name of 
the device. Usually this contains the name of a real device 
such as CON, PRN or C0M1, with the name padded out with 
spaces. I use an impossible name, so DOS cannot try to use 
the program as a device. Because all device names are capital 
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boot your PC you can select the configuration you want to use from a menu of up to 26 choices. 

BOOTCON is ideal when you need to use conflicting programs such as Windows 3.0, QEMM/386, 386MAX, 
Soft-ICE, and Lotus 123. A default configuration will automatically be used if you do not make a selection 
within the specified time-out period. BOOTCON also provides an optional password protection feature. 

BOOTCON lists for $59.95 and comes on both 5%" and 
3/4" disks. It has an unconditional 30-day money-back 
guarantee. MS-DOS or PC-DOS 3.10 or later is required. 

115 West California Blvd., Suite 113 

Pasadena, CA 91105 Phone (818) 440-9104 FAX (818) 440-9240 

Window* and MS-DOS are trademarks of Microsoft Corporation. PC-DOS is a trademark of International Business Machines Corporation. QEMM/386 is a trademark of Quarterdeck 

Office Systems. 386MAX is a trademark of Qualitas Corporation. Soft-ICE is a trademark of Nu Mega Technologies Lotus and 123 are trademarks of Lotus Development Corporation. 
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letters, you can simply use some lower case letters. It helps if 
this name agrees with the name of the program, as there are 
several programs that show where all device drivers, by 
name, are in memory. This header must always remain, but it 
is the only overhead required by the dummy device driver 
method. OS/2 device drivers require an eight-byte reserved 
area following this header. Normally, the resident part of the 
program follows this header. TYPEAHED needs no resident 
code, since the BIOS takes care of it all correctly from its end. 

TYPEAHED must alter several locations in the ROM-BIOS data 
area. To do this, the code defines a segment at 0040 hex. 
Segments at a fixed location do not produce an overlay, just 
definitions. The assembler will check that the code accesses 
these locations properly, even to the point of adding segment 
overrides. Device drivers use a request packet for communica¬ 
tion with SYSINIT or the DOS kernel. A structure names the 
offsets within the packet. The actual packet location is in 
SYSINIT or in the DOS kernel, so it takes up no room within 
the program. 

The designers of DOS originally intended DOS to call the 
strategy routine (St rat) to start a device and call the interrupt 
routine (Intr) to determine if the device was done. But DOS 
never became multitasking and OS/2 device drivers don't use 
the interrupt routine all, thus the interrupt routine here is 
nothing but a far return. Strat saves the packet address. 
When you assemble these instructions, they will have the CS: 
override. If they do not, the program will not work! 



Page 52 - TECH Specialist 


When DOS installs your dummy device driver, only the CS 
register has a usable value-, all the others may change with 
the DOS version. Save all registers used in the installation on 
the stack. The stack is near the top of memory during device 
loading, so you do not need a local stack. Installing the buffer 
is tricky because it must be compatible with as many installa¬ 
tions as possible. Device drivers have to tell DOS how big they 
are, just like TSRs do. Therefore, the dummy device driver 
wraps up the DOS initialization call by storing the highest 
needed address in the correct portion of the request packet 
and setting the status to done. Before returning, you have to 
restore all the registers saved. TYPEAHED can be a .EXE type 
file or a .COM type file, but the name should have a .SYS 
extension to keep anyone from trying to execute it. 

SCROLOCK Program 

Listing 2 is the source code for a short dummy device 
driver that prevents the screen from scrolling away. It il¬ 
lustrates the use of the CONFIG.SYS “command line.” When 
used as a device driver (as opposed to a TSR), the command 
line parameters follow the DEVICE=SCROLOCK.SYS command in 
the CONFIG.SYS file. While processing CONFIG.SYS, DOS 2.xx 
may change the separator into a null byte to turn the 
filename into an ASCIIZ string. SYSINIT converts all the letters 
to uppercase before loading the dummy device driver. The 
far address given in I0_C0UNT points to the string following 
the equal sign after the word DEVICE. There is no character 
count for this "command line,” unlike the character count at 


* Decoding Your Mailing Label * 

The numbers on your mailing label appear as: 
10000 #07.1 08.3 

The first number is your account number. The 
second set of numbers represents the issue you just 
received (in <volume>.<issue> format) and the third 
set represents the issue with which your subscription 
expires. The example was mailed to account number 
10,000, affixed to vol. 7, no. 1, and expires with voL 8, 
no. 3. 

NOTE: If the last two sets of numbers match, 
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PAGE ,132 

TITLE SCROLOCK -- Holds screen every page 
COMMENT $ 

SCR0L0CK.EXE — Locks scrolling of screen 


Listing 2 


************************************************************ 


Resident code 


*************************** 


Generate EXE file using the following commands: 

MASM SCROLOCK; 

LINK SCROLOCK; 

Load from CONFIG.SYS file by use of the command: 
DEVICE=SCROLOCK.EXE followed by an optional line count 
and an optional keyword ON. If no line count is given, 
the CGA normal line count of 25 will be used. If the 
keyword ON is used. Scroll-Lock will be turned on. 

Load at system command or from within AUTOEXEC.BAT. 
Type: SCROLOCK followed by an optional line count and 
an optional keyword ON as above. 

To use, toggle the Scroll-Lock key to activate and 
deactivate. If active, the screen will fill to the 
bottom, then it will scroll until the line where the 
cursor was when the last key was struck is now at the 
top of the screen, then it will freeze with the 
cursor in the bottom left corner. To get the next 
screen-full, hit any key. Note: The key will be used 
later, so if you want just another screen-full, hit 
the Alt or either Shift key. 

$ 


*********************************** 


Dummy Device Driver Header 


************************************************************ 


CSEG 

SEGMENT 

0RG 

0000H 


; For all device drivers 

Header 


DD 

-1 

; One device 



DM 

08000H 

; Character device 

StratA 


DM 

Strat 

; Strategy entrance 

IntrA 


DM 

Intr 

; Interrupt entrance 



DB 

’Scrolock' 

; 8 character dummy name 


************************************************************ 


Resident data 


*********************************** 


ROM BIOS DATA AREAS 


BI0S_DATA 

0RG 

SEGMENT AT 
00017H 

00040H 


KB FLAG 

DB 

? 



SCR0LL_STATE 

EQU 

010H 




0RG 

00050H 



CURS0R_P0SN 

tions 

DM 

8 DUP(?) 

; 8 pages 

of cursor posi- 

CURS0R_M0DE 

ting 

DM 

? 

; Current 

cursor mode set- 

ACTIVE_PAGE 

DB 

? 

; Current 

page being dis- 

piayed 

BIOS DATA 

ENDS 





RESIDENT DATA 


01dlntr09 

DM 

? 

; Interrupt vector storage 


DM 

? 


OldlntrlO 

DM 

? 



DM 

? 


LineCount 

DB 

? 

; Line counter 

OddEven 

DB 

0 

; CR sets even = 0 

MaxRows 

DB 

25 

; Maximum screen rows 


Intercept of Interrupt 10H — BIOS Video Call 


ASSUME 

CS:CSEG, DS:NOTHING, ES:NOTHING 

NewIntrlO: 

STI 


Allow interrupts 

PUSH 

DS 

Save registers 

PUSH 

ES 


PUSH 

AX 


PUSH 

BX 


PUSH 

CX 


PUSH 

AX 


MOV 

AX.SEG BIOS DATA 

Set ES = BIOS DATA segment 

MOV 

ES.AX 


POP 

AX 


PUSH 

CS 

Set DS = CS 

POP 

DS 


ASSUME 

DS:CSEG, ES:BI0S DATA 


TEST 

KB FLAG,SCROLL STATE 

Scroll-Lock on? 

JZ 

ExitlntrlO 

No, not locked 

CMP 

AH.000H 

Change video mode? 

JE 

ClrScr 

Yes, stop at bottom 

CMP 

AX.00600H 

Clear video screen? 

JE 

ClrScr 

Yes, stop at bottom 

CMP 

AX.00601H 

Roll up one line? 

JE 

Roll Up 

Yes, do that type 

CMP 

OddEven,002H 

Is roll active? 

JE 

ExitlntrlO 

Yes, don't do cursor 

CMP 

AH.002H 

Cursor command? 

JE 

CurMov 

Yes, test what move 

ExitlntrlO: 

POP 

CX 

Restore registers 

POP 

BX 


POP 

AX 



C Communications 
Toolkit 

Unlimited number of serial ports, 

Any I/O address and IRQ line. 

Log output and/or input to a printer. 

Capture output and/or input to a buffer 
Multi-port board support CommTech, Di< 

Power 

Speed: up to 115,000 bps. 

Flow control: XON/XOFF, RTS/CTS, DTR/DSR. 

Interrupts: Receive, Transmit, Modem Status, Line Status. 
Modem Support: Full Flayes command set + Telebit exten¬ 
sions. 

Racal-Vadic command set. 

Terminal Emulation: VT52, VT100, ANSI X3.64, ANSI.SYS. 

Fax Support: Full DCA/Intel CAS support (FAX and file trans¬ 
fer). 

File Transfer 

Single file: ASCII, XMODEM, XMODEM-CRC, XMODEM-lk. 
Multi-file: YMODEM, YMODEM-g (for error-free links), 

KERMIT (with run-length encoding and 8th—bit prefixing ex¬ 
tensions). ZMODEM 

Communications Chip Support 

INS8250/A/B, 16450, 

INS16550/A (including FIFO buffers and interrupt threshold). 
Zilog Z-80 SIO/DART (async., SDLC, HDLC, BiSync). _ 

Supports: MSC 5.0+/Quick C, Power C v1.2+, Turbo C/C++, Watcom C. Full source 

code included. No run-time royalties. 30-day warranty. 



FAX: (214) 


CALL (214) 226-6909 

(214) QQg -L ppc. (2 14) 226-8088 



Magna Carta Software 
P.O. Box 475594 
Garland TX 75047-5594 


only *149.95 

( TX residents add 8.25% sales tax) 


VISA/MC accepted 
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PSP: 0080 for normal DOS programs. You will also need to 
check for the file end code ( 1A hex), the return code (OD hex) 
and the line feed code (OA hex) to determine the end of the 
line. This is not very nice, but it is consistent. 

The device name for this dummy device driver is Scrolock. 
Scrolock intercepts the video interrupt calls and if the whole 
screen is cleared or rolled just one line, it adjusts LineCount. 


When the screen is to roll no more, the routine hangs up in a 
loop until another key is pressed. Scrolock intercepts the 
keyboard interrupt calls to detect key presses and adjusts 
LineCount according to the cursor position. The installation 
code analyzes the command line in CONFIG.SYS fashion, as 
this is the most difficult. The installation uses several DOS 
functions. 




Listing 2 

—Cont’d 



POP 

ES 



ASSUME 

ES:B1OS DATA 


POP 

DS 



MOV 

BL,ACTIVE PAGE 

Get cursor pointer 

ASSUME 

DS:NOTHING, ES:NOTHING 



SUB 

BH.BH 


JMP 

DWORD PTR OldlntrlO 

Perform video request 


SHL 

BX,1 






MOV 

DX,[BX+CURSOR POSN] 

Get cursor position 

ASSUME 

DS:CSEG, ES:BI0S DATA 



MOV 

AH.MaxRows 

Calculate rows to bottom 

ClrScr: 




SUB 

AH.DH 


MOV 

AL.MaxRows 



MOV 

LineCount,AH 

Allow roll again 

MOV 

LineCount,AL 

Do not allow any roll 


POP 

ES 


MOV 

OddEven.OOOH 

Reset CR LF counter 


ASSUME 

ES:NOTHING 


JMP 

ExitlntrlO 

Exit Intr svc. 


POP 

DX 

Restore registers 





POP 

CX 


Roll Up: 




POP 

BX 


CMP 

CX.000H 

From first line? 

Exitlntr09: 



JNE 

ExitlntrlO 

No, exit 


POP 

AX 


MOV 

AL.MaxRows 



JMP 

DWORD PTR 01dlntr09 

Perform keyboard request 

CMP 

DH.AL 

To last line? 





JNE 

ExitlntrlO 

No, exit 


★ ★★★♦★★★★★sir********************* 

**************************** 

INC 

LineCount 

Yes, now count lines 


* 


* 

MOV 

OddEven,002H 

Turn off cursor type 


* 

Installation 

data * 

Roll Loop: 




* 


* 

CMP 

LineCount.AL 

Maximum roll? 


************************************************************ 

JA 

Rol1 Loop 

Yes, loop until key 





pressed 



Init PROC 

FAR 


JMP 

ExitlntrlO 

No, roll some more 








Packet 

DD 0 

Request packet address 

CurMov: 




DEVICE DRIVER REQUEST PACKET 


CMP 

BH,ACTIVE PAGE 

Cursor for active page? 





JNE 

ExitlntrlO 

No, set for other page 

IOPacket 

STRUC 


MOV 

BL.BH 

Get cursor pointer 

10 CMDLEN 

DB ? 


SUB 

BH.BH 


10 UNIT 

DB ? 


SHL 

BX, 1 


10 CMD 

DB ? 


MOV 

CX,[BX+CURSOR POSN] 

Get cursor position 

10 STATUS 

DW ? 


CMP 

CH.MaxRows 

At bottom row? 



DB 8 DUP(?) 


JNE 

ExitlntrlO 

No, don't do anything 

10 MEDIA 

DB ? 


OR 

DL.DL 

To column 0? 

10 ADDRESS 

DW ? 


JNE 

ExitlntrlO 

No, exit 



DW ? 


CMP 

DH.MaxRows 

To last line? 

10 COUNT 

DW ? 


JNE 

ExitlntrlO 

No, exit 

10 START 

DW ? 


OR 

CL,CL 

From column 0? 

IOPacket 

ENDS 


JE 

NotEven 

Yes, probably a LF 





MOV 

OddEven.OOOH 

A CR for sure - even up 

Message 

DB 'SCROLOCK installed'.00DH.00AH, 

NotEven: 







NOT 

OddEven 

Alternate CR LF 


************************************************************ 

CMP 

OddEven.OOOH 

Probable LF? 


* 


* 

JE 

ExitlntrlO 

Yes, skip LFs 


* 

Installation 

code * 

INC 

LineCount 

No, now count lines 


* 


* 

CMP 

LineCount,AL 

Maximum roll? 


************************************************************ 

JNA 

ExitlntrlO 

No, roll some more 





MOV 

AH.002H 

Put cursor in corner 


ASSUME 

DS:NOTHING, ES:NOTHING 


MOV 

BH,ACTIVE PAGE 


Strat: 



PUSHF 




MOV 

WORD PTR Packet,BX 

Save Packet info 

CALL 

DWORD PTR OldlntrlO 



MOV 

WORD PTR Packet+2,ES 


MOV 

AL.MaxRows 

Needed for release 


PUSH 

BX 

Save registers 

JMP 

Rol1 Loop 

Loop as above 


PUSH 

DS 






PUSH 

AX 


; Intrercept of Intrerrupt 9H — Hardware Keyboard 


PUSH 

DX 


; - 




PUSH 

ES 






PUSH 

SI 


Newlntr09: 







ASSUME 

DS:NOTH ING, ES:NOTHING 



NORMAL 

TSR INSTALLATION 


PUSH 

AX 

Save registers 





IN 

AL.060H 

Read scan code 


LDS 

BX,DWORD PTR Packet 

Get command line location 

TEST 

AL.080H 

Key pressed? 


LDS 

SI,DWORD PTR [BX+IO COUNT] 

JNE 

Exitlntr09 

No, exit 


SUB 

BX.BX 

Zero counter 

PUSH 

BX 

Save registers 

Bypass: 



PUSH 

CX 



LODSB 


Get CMD character 

PUSH 

DX 



CMP 

AL.OODH 

CR code? 

PUSH 

ES 



JE 

Install 

Yes, done with analysis 

MOV 

AX.SEG BIOS DATA 

Set ES « BIOS DATA segment 


CMP 

AL.OOAH 

LF code? 

MOV 

ES.AX 



JE 

Instal1 

Yes, done with analysis 
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Listing 2 

— Cont’d 




CMP 

AL.01AH 

EOF code? 

Delimit PROC 

NEAR 



JE 

Instal1 

Yes, done with analysis 


CMP 

AL,9 

; Tab? 


CALL 

Delimit 

Is it a delimiter? 


JE 

DelimitEnd 



JNE 

Bypass 

No, skip garbage 


CMP 

AL,' ' 

; Space? 

CommandLoop: 




JE 

DelimitEnd 



LODSB 


Get a character 


CMP 

AL, '/' 

; Switch? 


CMP 

AL.OODH 

CR code? 


JE 

DelimitEnd 



JE 

Install 

Yes, done with analysis 


CMP 

AL,'-' 

; Unix switch? 


CMP 

AL.OOAH 

LF code? 


JE 

DelimitEnd 



JE 

Install 

Yes, done with analysis 


OR 

AL.AL 

; Null? 


CMP 

AL.OIAH 

EOF code? 

DelimitEnd: 




JE 

Install 

Yes, done with analysis 


RET 


; Exit Z or NZ 


CMP 

AL,'O' 

Below digits? 

Delimit ENDP 




JB 

CommandLoop 

Yes, ignore all 

CSEG ENDS 




CMP 

AL,'9' 

Within digits? 






JNA 

Digits 

Yes, accumulate count 


A*********************************************************** 


AND 

AL.NOT 020H 

Translate lower case 


★ 


* 


CMP 

AL.'N' 

N of ON? 


* 

Execution 

data * 


JNE 

CommandLoop 

No, ignore all 


* 


* 


PUSH 

DS 

Yes, set Scroll-Lock 


************************************************************ 


MOV 

AX.SEG BIOS DATA 

bit in low 






MOV 

DS.AX 

memory 0040:0017 

EXESEG SEGMENT 

PARA 



ASSUME 

DS:BIOS DATA 



PROGRAM 

SEGMENT PREFIX 



OR 

KB FLAG,SCROLL STATE 







POP 

DS 


PSP SEGMENT 

AT 00000H 



ASSUME 

DS:CSEG 


FilPerProc 

EQU 20 



JMP 

CommandLoop 

and look for more 

PSP Exit Call 

DW ? 

; INT int abort 








; system terminate 

Digits: 




PSP block len 

DW ? 

; size of execution block 


SUB 

AL,'O' 

Convert to value 



DB ? 



SHL 

BL, 1 

Multiply BL by 10 

PSP CPM Call 

DB 5 DUP (?) 

; ancient call to system 


ADD 

AL.BL 

by shifts and adds 

PSP Exit 

DD ? 

; pointer to exit routine 


SHL 

BL, 1 


PSP Ctrl C 

DD ? 

; pointer to *C routine 


SHL 

BL, 1 


PSP Fatal abort 

DD ? 

; pointer to fatal error 


ADD 

BL.AL 

Keep value in BL 

PSP Parent PID 

DW ? 

; PID of parent 


JMP 

CommandLoop 

Get more 




; (terminate PID) 





PSP JFN Table 

DB FilPerProc DUP (?) 

Instal1 

: 






; indices into system table 


OR 

BL.BL 

Any value found? 

PSP environ 

DW ? 

; seg addr of PSP environment 


JNZ 

HasDigits 

Yes, bypass set-to-25 

PSP User stack 

DD ? 

; stack of self during 


MOV 

BL,25 

No, set to 25 




; system calls 

HasDigits: 



PSP PAD1 

DB 1EH DUP (?) 



PUSH 

CS 

DS ■ CS for DOS functs 

PSP Call system 

DB 5 DUP (?) 

; portable method of 


POP 

DS 





; system cal 1 


ASSUME 

DS:CSEG 


PSP PAD2 

DB 6H DUP (?) 

• 

• 


MOV 

MaxRows,BL 

Save for scroll limits 



ORG 00080H 



DEC 

MaxRows 

Adjust line count down 

PSP CMD Line 

DB ? 



MOV 

LineCount,OOOH 

Scroll full page 

PSP ENDS 




MOV 

AX.03509H 

Get interrupt 9 vector 






INT 

021H 


EXEPacket 

IOPacket <> 

; Requires packet space 


MOV 

01dIntr09,BX 

; Save it 

ToStrat 

DD StratA 



MOV 

01dIntr09+2,ES 


Tolntr 

DD IntrA 



MOV 

DX,OFFSET Newlntr09 

; Set new interrupt 9 vector 






MOV 

AX.02509H 



************************************************************ 


INT 

021H 



* 


* 


MOV 

AX.03510H 

; Get interrupt 10 vector 


* 

Execution 

code * 


INT 

021H 



* 


* 


MOV 

OldlntrlO.BX 

; Save it 


************************************************************ 


MOV 

01dIntrl0+2,ES 







MOV 

DX,OFFSET NewIntrlO 

; Set new interrupt 10 vector 


ASSUME 

CS:EXESEG,DS:PSP,ES:NOTH ING 


MOV 

AX.02510H 


Start PROC 

NEAR 

; Execute DDD installation 


INT 

021H 



PUSH 

DS 

; Save for PSP:0081 


MOV 

DX,OFFSET Message 

; Show installed message 


MOV 

AH.049H 

; Release environment 


MOV 

AH.009H 



MOV 

ES.PSP environ 



INT 

021H 



INT 

021H 


» 

SPECIAL 

DDD TERMINATION 



ASSUME 

DS:CSEG 


» 





LDS 

BX,ToStrat 

; Get address of StratA 


POP 

SI 

; Restore registers 


MOV 

AX,[BX] 

; to get address of Strat 


POP 

ES 



MOV 

WORD PTR ToStrat,AX 

; for FAR CALL 


POP 

DX 



LDS 

BX,Tolntr 

; Get address of IntrA 


POP 

AX 



MOV 

AX,[BX] 

; to get address of Intr 


ASSUME 

DS:NOTHING, ES:NOTHING 



MOV 

WORD PTR Tolntr,AX 

; for FAR CALL 


LDS 

BX.DWORD PTR Packet 

; Restore Packet info 


PUSH 

CS 



MOV 

WORD PTR [BX+IO ADDRESS].OFFSET Init 


POP 

DS 





; Set memory request 


PUSH 

CS 



MOV 

WORD PTR [BX+IO ADDRESS+2],CS ; to be resident 


POP 

ES 



MOV 

[BX+IO STATUS],OOIOOH 

; Set done bits 


ASSUME 

DS:EXESEG,ES:EXESEG 



POP 

DS 

; Restore registers used 


POP 

EXEPacket.10 COUNT+2 

; Put PSP:0081 address 


POP 

BX 





; in packet 

Intr: 





MOV 

EXEPacket.10 COUNT,OFFSET PSP CMD Line+1 


RET 


; Exit device installaion 


SUB 

AL.AL 

; 0 = Initialize DDD 

Init 

ENDP 




MOV 

EXEPacket.10 CMD.AL 

; Put command in packet 






MOV 

BX,OFFSET EXEPacket 

; ES:BX = packet address 
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Listing 2 

— Cont’d 


CALL 

ToStrat ; 

Perform strategy 

Start 

ENDP 


CALL 

Tolntr ; 

Perform interrupt 

EXESEG 

ENDS 


MOV 

DX.EXEPacket.IO ADDRESS ; 

Get ending address 




ADD 

DX.0010FH ; 

Add PSP and round up 

STACK 

SEGMENT 

STACK 

MOV 

CL,4 

Convert to paragraphs 



DW 0100H DUP (?) 

SHR 

DX.CL 


STACK 

ENDS 


ADD 

DX,EXEPacket.I0_ADDRESS+2 

Add highest segment 


END 

Start 

SUB 

DX.SEG CSEG ; 

Subtract lowest segment 

; End 

of File 


MOV 

AX.03100H ; 

DOS stay resident function 




I NT 

021H 






With the execution section, which installs the dummy 
device driver as a normal TSR, SCR0L0CK.EXE is executable. 
This does not install it as a CONFIG.SYS installed device driver. 
It includes a MCB, PSP and the device header, but it allows you 
to install it either by a CONFIG.SYS file command or by a DOS 
systems command. It must have a .EXE extension to use it as 
a TSR. 


Summary 

Device drivers can serve much the same purpose as TSRs; 
you just can't unload them at will. When you are making a 
small TSR that you use a lot, a dummy device driver with 254 
less bytes of overhead is an attractive alternative. □ 



ASSOCIATE 
TECHNICAL EDITORS 
NEEDED! 

R&D Publications, Inc. is seeking technical ad¬ 
visors to the company to primarily support the edit¬ 
ing function as ASSOCIATE EDITORS. Other 
duties may include internal software development, 
internal software maintenance, Xenix system ad¬ 
ministration, internal technical training, customer 
referrals, internal consultation for software / 
hardware puchases, book and new product develop¬ 
ment. 

Depending on your background, the position’s 
responsibilities may include any of the above areas. 
If these duties interest you and you’re willing to 
relocate to Lawrence, Kansas, please submit a 
cover letter and resume to Kelly Calvert, HR 
Manager, 2601 Iowa, Lawrence, KS 66046. 



publications, inc. 
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Transition From Data To Information 


57 


Data Desk 



SQL And Update Tapes 


Here is a problem from a consulting job I did in March 1991. This company 
bought a mailing list from an outside firm which sent an update tape on a regular 
basis. My task was to write a program to read this tape and perform the required 
actions. 

The update tape had one record for each row. Each record had all the columns of 
the row on it, plus an action field at the end. The action field was defined as a single 
character with this code scheme: 

A - Add this row to the database 
B - Before the change, the row looks like this now 
C - Change the row in the database to look like this 
D - Delete this row from the database 

The B and C actions always came in contiguous pairs on the tape, and in that order. 
There was only one change pair per entity on a given tape. 

The advantage of having a full history of transactions was that it allowed the user 
to reverse the changes and restore the database to its original condition. By taking 
the tapes in reverse order of arrival, the user could just swap the B and C action 
codes, and swap A and D action codes. The user then applied this modified tape to 
the database with the usual update procedure which restored the database to its 
original condition. 

The base table in the database looks something like Listing 1. 

The additions and removals (A and D actions) are not too hard to write in SQL, 
since they use the primary key to locate their rows. However, the B and C pairs 
might or might not change the reg# or outlet # codes and therefore alter the 
primary key for the base table. Key and non-key columns are never mixed in a 
change pair. 

The first approach, by the company, to writing a program to read this update 
tape and perform the actions involved using a cursor or adding a sequence number 
to the rows. The sequence number provided a single field primary key of the records 
and the update rows had an elaborate program to add the proper “internal company 
only" key to them. The concern was that other tables in the database depend on 
the same key to reference their rows. A change in the primary key here must 
cascade to other tables or the whole thing falls apart. 


Joe Celko 


Joe Celko is a college teacher and consultant based in Los Angeles, as well as a 
member of the ANSI X3H2 Database Standards Committee. 


















Listing 1 


Listing 2 

CREATE TABLE Mail List 


CREATE TABLE UpdateList 

(reg#. 


(reg# INTEGER NOT NULL, 

outlet#, 


outlet# INTEGER NOT NULL, 

name CHAR (20) NOT NULL, 


name CHAR (20) NOT NULL, 

street CHAR (20) NOT NULL, 


street CHAR (20) NOT NULL, 

city CHAR (10) NOT NULL, 


city CHAR (10) NOT NULL, 

state CHAR (2) NOT NULL, 


state CHAR (2) NOT NULL, 

Zip CHAR (5) NOT NULL, 


zip CHAR (5) NOT NULL, 

PRIMARY KEY (reg#, outlet#) 


action CHAR (1) CHECK (action IN ("A", “D\ “B", "C")) 

): 


UNIQUE (reg#, outlet#, name, street, city, state, zip, 
action)); 


However, the whole issue of primary 
keys is secondary to the issue of updat¬ 
ing this single table. This tape is 
designed to remove old rows and 
replace them with new ones. 

My approach to this problem was to 
first use a load utility to put the tape 
into a table where SQL can get to it. 
Most implementations of SQL have a 
load utility program which will do this 
quickly. The target table looked like 
Listing 2. 

I could not use ( reg #, outlet #) as 
the PRIMARY KEY or put a UNIQUE con¬ 


straint on them for this table, since 
some change pairs had duplicate keys. 
Instead the whole record had to be uni¬ 
que to avoid duplicate records in the 
source tape (usually caused by loading 
the same tape twice). 

So far, I had been writing in ANSI 
standard SQL, which does not have in¬ 
dexes. But actual SQL implementations 
need indexes to improve performance. In¬ 
dexes also allow the system to perform 
EXISTS predicates without reading the 
whole table. My solution is in Listing 3. 


The Mail List table has unique in¬ 
dexing on the primary key for integrity, 
while the UpdateList has indexing for 
fast access on each of the reg # and 
outlet # columns, as well as on the 
pair of them. I built the indexes on the 
UpdateList after loading the table, so 
each insert would not slow down to 
update the indexes. 

Most SQL implementations use a B- 
tree index of some kind. Since the up¬ 
date tapes are approximately in ascend¬ 
ing key order (the C record of a B-C pair 
might be out of sort if the key changes) 


© ^ 
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Listing 3 


CREATE UNIQUE INDEX MailX ON MailList (reg#, outlet#); 
/* Build these three indexes AFTER loading the table */ 
CREATE INDEX UpdateX12 ON Updatedst (reg#, outlet#); 
CREATE INDEX UpdateXl ON UpdateList (reg#); 

CREATE INDEX UpdateX2 ON UpdateList (outlet#); 


Listing 4 

DELETE FROM MailList 
WHERE EXISTS (SELECT * 

FROM UpdateList 
WHERE action IN ("D\ "B") 

AND UpdateList.reg# = Mail List.reg# 

AND UpdateList.outlet# = Mail List.outlet#); 


Listing 5 

CREATE VIEW NonKeyChanges 
AS SELECT * FROM UpdateList 
WHERE EXISTS (SELECT * 

FROM UpdateList Updl, UpdateList Upd2 
WHERE (Updl.action = "B”) 

AND (Upd2.action = "C") 

AND (Updl.reg# = Upd2.reg#) 

AND (Updl.outlet# = Upd2.outlet#)); 


the B-tree structure will grow in a non- 
random fashion and have to re-balance 
itself in the worst possible way. Update 
tapes are generally small, so indexing 
them in a table is not a big time factor. 

The removal of records were done 
with a simple DELETE FROM command. 
Attempting to remove a row that was 
not there had no effect on the results. 
See Listing 4. 

The addition of new records were 
done with a corresponding INSERT 
INTO command. The primary key im¬ 
plies that the two key columns are NOT 
NULL and UNIQUE, so I could not add a 
duplicate record row to the table 
without getting an error. This provided 
a built-in safety check. 

INSERT INTO MailList 
SELECT reg#, outlet#, name, 

street, city, state, zip 
FROM UpdateList WHERE action 

IN ("A", "C"); 

In this approach you must delete rows 
before trying to add new ones or re¬ 
placements. The order of execution is 


important to avoid false duplicate keys 
in the table. 

The change pairs fell into two 
separate cases. In Case One, the 
primary key was not changed. If the 
primary key was not changed, then by 
implication some non-key columns 
must have been. I needed a way to tell 
the constant key pairs from the altered 
key pairs. I could have done this with a 
self-join in an EXISTS clause. But I chose 
to create a VIEW in Listing 5. 

Another solution that would save 
some work in the predicates of the pre¬ 
vious DELETE FROM and INSERT INTO 
statements, would be to use the same 
predicate in UPDATE statements before 
running them, and convert the B ac¬ 
tions to D and the C actions to A ac¬ 
tions. 

This left only change pairs in which 
the primary key was altered in the 
UpdateList. This trick made it easier to 
find the pairs which made a primary 
key change. But it cost me two extra 
passes through the database to do the 
updates. See Listing 6. 

In the cases where the primary key 
was changed, no non-key columns had 
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been altered. This made it possible to build a table with the 
old key and the new key which was used to update the rest 
of the tables in the database that depend on this same key. 

The trick was to make the non-key fields into a pseudo¬ 
key for the Case Two B-C pairs. The table was then used to 
update the other tables in the database to the new key 
values. See Listing 7. 

The following command pattern was used on every af¬ 
fected table in the database: 

UPDATE Other-Table 

SET Othertable.reg# = KeyChanger.newreg# 

SET Othertable.outlet# = Keychanger.newoutlet# 

WHERE (Othertable.reg# = KeyChanger.oldreg#) 

AND (Othertable.outlet# = Keychanger.oldoutlet#); 

This update tape scheme is very fragile in many ways. Con¬ 
sider what would happen if the tape contained multiple chan¬ 
ges. For example, imagine a change of the street address fol¬ 
lowed by a change of name. No keys are altered. The tape 
would look like Listing 8. 

The self-join expression in the VIEW NonKeyChanges will 
match the first and third records with both the second and 
fourth records of this sub-sequence when the tape is loaded 
into the UpdateList table. A mixture of key and non-key 


Listing 6 

UPDATE UpdateList 
SET action = "D" 

WHERE EXISTS (SELECT * 

FROM UpdateList Updl, UpdateList Upd2 
WHERE (Updl.action = "B") 

AND (Upd2.action = "C") 

AND (Updl.reg# = Upd2.reg#) 

AND (Updl.outlet# = Upd2.outlet#)) 
AND (action = "B"); 

UPDATE UpdateList 
SET action = "A" 

WHERE EXISTS (SELECT * 

FROM UpdateList Updl, UpdateList Upd2 
WHERE (Updl.action = "B") 

AND (Upd2.action = "C") 

AND (Updl.reg# = Upd2.reg#) 

AND (Updl.outlet# = Upd2.outlet#)) 
AND (action = "C"); 


Listing 7 

INSERT INTO KeyChanger (oldreg#, oldoutlet#, 
newreg#, newoutlet#) 

SELECT Updl.reg#, Updl.outlet#, 

Upd2.reg#, Upd2.outlet# 

FROM UpdateList Updl, UpdateList Upd2 
WHERE ( (Updl.action = “B") AND (Upd2.action = ”C")) 
AND ( (Updl.name = Upd2.name) 

AND (Updl.street * Upd2.street) 

AND (Updl.city = Upd2.city) 

AND (Updl.state = Upd2.state) 

AND (Updl.zip = Upd2.zip)); 


changes will have the same sort of results since there will be 
three identically keyed records in the group. 

Strangely, trying to restore a key change with a reversing 
key change works because it gives a pair of false non-key 
change pairs. Consider the example in Listing 9. 

The first and fourth record pair together, and so do the 
second and the third records. Each has the same key, so they 
get treated like non-key change pairs which happen to 
change no columns in the row. The supplier has (presumably) 
already scanned the tape for duplicate A and D records, as 
well as such B-C change pairs. They cannot hurt anything, but 
they do waste time. 

An effective solution is just what the mailing list supplier 
did - retain only the first and last records from a sequence of 
non-key changes on the tape before sending it to the user. 
This reduced the number of records on the tape and therefore 
the number of database accesses made when doing the up¬ 
date. 

This could be done in a relational database by using a 
serial number added to each row. The query is a monster 
DELETE FROM with a predicate of self-joined groups with the 
same ( reg #, outlet#) pairs or consecutive serial numbers 
coupled with B and C action codes. 

Another problem is having both a key and non-key change 
for the same entity on the same tape. Order is important in 
these cases. Either the key is changed before the non-keys, or 
vice versa. Non-keys changing first is no trouble, since the key 
change will find the right row. However, if the key is supposed 
to change before the non-keys, then applying the non-key 
changes first will fail for lack of matching row. 

This can still be done in SQL. Build a table of the B-C and D 
actions for which there was no record found as part of the 
basic INSERT INTO statement and DELETE FROM procedure. 
Then use this table of unmatched rows as the input to the 
update MailList procedure again. Keep doing this until the 
table of unmatched rows is empty. 

It is worth noting that if the tapes had allowed any fields 
in the records to be changed in the B-C pairs, then no pure 
SQL solution would have existed. I would then have needed a 
sequence number to form the change pairs. 

But the B-C keys or non-keys only scheme was not done 
for pure SQL implementations. A scheme which consisted of 
only add and delete actions with full records would still work 
and allows the updates to be backed out of the file. However, 
using only A and D actions in a procedural system would not 
have been optimal. 

The deletes would have left holes in sequential or indexed 
files. The adds would have been appended to the end of the 
file, ruining the sort order. Since key changes are rare, the B-C 
action scheme allows the user to overwrite existing records to 
save storage space and still preserve all or most of the sort 
order, a very important feature in tape systems. 

Finally, Listing 10 shows another example of a sequential 
file update pseudo-code procedure. Compare it to the two SQL 
statements I used. The FETCH command returns TRUE until 
the file is empty. The INSERT command places a record at the 
current position in the file; this will push the current record 
down one place. The DELETE command removes the current 
record from the file. Assume that both files are in sorted 
order. See Listing 10. □ 
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Listing 8 

TAPE Updatel 

(reg#, outlet#, name, street, city, state, zip, action) 

< start of tape > 

< other records > 


2, 3, ''Fred", 

"123 Main 

St”, 

"Bedrock", 

"NY", 

"10099", 

" B" 

2, 3, "Fred", 

"456 Main 

St", 

"Bedrock", 

"NY", 

“10099", 

"C" 

< other records > 






2, 3, "Fred", 

"456 Main 

St", 

"Bedrock", 

"NY", 

"10099", 

"B" 

2, 3, "Wilma", 

, "456 Mair 

i St" 

, "Bedrock", 

, "NY" 

, "10099" 

> "C" 


< other records > 

< end of tape > 


Listing 9 

TAPE Update2 

(reg#, outlet#, name, street, city, state, zip, action) 
< start of tape > 


< 

other records > 







2, 

3, "Fred", "123 

Main 

St", 

“Bedrock", 

“NY", 

"10099”, 

« B " 

2, 

< 

4, "Fred", "123 
other records > 

Main 

St", 

“Bedrock", 

“NY", 

"10099", 

“C“ 

2, 

4, "Fred", "123 

Main 

St", 

"Bedrock", 

"NY", 

"10099", 

"B" 

2, 

< 

3, "Fred", "123 
other records > 

Main 

St", 

"Bedrock", 

"NY", 

"10099", 

"C" 


< end of tape > 


Listing 10 

BEGIN 

OPEN Master; 

OPEN Update; 

WHILE FETCH Update.* 

DO BEGIN 

CASE UpdateList.action 
"A": BEGIN 

WHILE (Master.key < Update.key) 

DO FETCH Master.*; 

INSERT Update.* INTO Master; 

END; 

"B": BEGIN /* Position to old record in master file */ 
WHILE (Master-key < Update.key) 

DO FETCH Master.*; 

END; 

"C": BEGIN /* B ought to put you on the right record */ 
IF (Master.key = Update.key) 

THEN BEGIN 

DELETE Master.*; 

INSERT Update.* INTO Master; 

FETCH Master; 

END; 

END; 

"D": BEGIN 

WHILE Master.key < Update.key) 

DO FETCH Master.*; 

IF (Master.key * Update.key) 

THEN DELETE Master.*; 

END; 

END; 

CLOSE Master; 

SORT Master ON Master.key; 

CLOSE Update; 

END; 
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TECH Preview 


Liana: 

A Language For Writing Windows Programs 

Comments By Ron Burk 


Liana is a new interpreted language for writing Windows 
programs. Liana's syntax is very similar to C++ with a few im¬ 
portant exceptions. First, type declarations are optional; like 
many interpreted languages, Liana implicitly converts between 
integer, floating point, and string data types without any 
programmer intervention. Second, Liana provides automatic 
memory management; you do not have to worry about free¬ 
ing up memory or dangling pointers. 

This TECH Preview looks at a pre-release version of Liana. 
This version of Liana was still under active development, so 
the version that finally ships may contain some changes from 
the language described here. You can contact Base Technol¬ 
ogy for further information. 

The Development Environment 

Probably the least attractive feature of Liana is that it cur¬ 
rently offers a traditional DOS compile-edit-link cycle rather 
than an integrated Windows development environment. The 
Liana development tools resemble the traditional C compiler, 


Liana is available from Base Technology for $495. For a 
limited time, version 1.0 is available for $99. You can also 
purchase an evaluation kit that contains the manual and a 
subset of the software for $49. The author also provides 
support on CompuServe. For more information, contact 
Jack Krupansky 
Base Technology 
1543 Pine Street 
Boulder, Colorado 80302 
(303) 440-4558 


linker, and librarian. You compile your Liana program with the 
DOS executable LCL.EXE. You link one or more Liana object 
files together with LLINK.EXE. If you develop code for use in 
multiple Liana applications, you can store the object code in 
libraries with LLIB.EXE. 

None of these tools are DPMI-aware, which means that if 
you execute them from Windows (in a DOS box, of course), 
they cannot take advantage of Windows virtual memory. The 
tools are not DOS-extended either, so they have to run in 
however much memory your DOS box provides (typically 
about 512K). That leaves enough memory to compile and link 
most programs, but not enough memory to compile and link 
from within an editor (unless it is smart enough to swap itself 
out before shelling out). 

By default, LCL compiles and links the source files you 
specify. If the linker finds an icon file (.ICO) with the same 
name as the application you are linking, it will incorporate it 
into the resulting .EXE file. The Liana linker actually does 
some of the work traditionally left to compilers. The result is 
that the Liana compiler is very fast (nearly as fast as a simple 
file copy) while the link process is significantly slower (a mini¬ 
mum of about 15 seconds, even for a tiny program). The 
linker produces an executable (a minimum of about 90Kb). To 
execute the resulting program, you also need LIANA.DLL 
(about 160Kb) and LMATH.DLL (about 24Kb). The programs that 
Liana produces can run in real, standard, or enhanced Win¬ 
dows modes. 

Getting Started 

Liana comes with more than 50 sample programs. The 
easiest way to learn the language is to just pick the example 


Ron Burk has a B.S.E.E. from the University of Kansas and has been a programmer for the past 10 years. You may contact him 
at Burk Labs, P.O. Box 3082, Redmond, WA 98073-3082. CIS: 70642,2662. 
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closest to what you want to do and start modifying it. If you 
know C, you can just pretend you are writing a C program and 
the result will often compile without modifications. Liana 
reserves most of the compiler-specific keywords of popular PC 
C compilers (for example, far, near, _ds, _loadds, _export 
and so on) for future use, so avoid them while you are 
pretending to write C code. 

Just like C++ and C, Liana program execution starts in a 
function called main(). Here is the traditional "Hello world” 
program, written in Liana: 

main () { 

w = new window ("He Ho world"); 

w.show(); 

) 

This program first allocates and constructs a new window ob¬ 
ject (with a caption of "Hello world”) and assigns it to a vari¬ 
able called w. It then displays the window by calling its show() 
member function. 

Although you do not have to declare variables before you 
use them, the variable w in this example is actually a 
predefined global variable of type window. Liana always as¬ 
signs the first window created to the variable w. All of the 
predefined Liana classes are documented in the Programmer’s 
Reference Manual. The syntax for calling class member func¬ 
tions is about the same for Liana as for C++, so w.showf) calls 
the member function show() passing it the window object w. 

One question this example raises is Where is the message 
loop?. The answer is that the Liana interpreter implicitly sup¬ 
plies the Windows message loop. In this example, main() 
creates the main window and returns. At that point, the Liana 
interpreter processes Windows messages until the user closes 
the main window. The idea is for you to perform initialization 


in main() and define other functions to respond to Windows 
messages after main() returns. 

Operator Overloading 

In C++, you can define how operators operate on objects 
by defining a member function with the operator keyword. 
For example, to define how the "+” (addition) operator 


TECH Summary 

Liana is a new language for writing Windows ap¬ 
plications. Its syntax is very similar to C++, but even 
though Liana produces a separate .EXE file, your com¬ 
piled Liana code is executed by an interpreter in the 
.EXE. Unlike C++, type declarations are optional in 
Liana. Liana also provides automatic memory manage¬ 
ment in the form of dynamic arrays and garbage col¬ 
lection (a reference counting scheme). You do not have 
to remember to free up memory after you are through 
using it. 

Liana's strength is that it allows C and C++ program¬ 
mers to begin writing Windows programs in very short 
order. As with any interpreted language, the resulting 
programs are limited by the speed of the interpreter. 
Liana also uses a traditional edit-compile-link cycle, 
which is an impediment to quick prototyping. The 
similarity of Liana to C++ makes it easier to transform a 
Liana prototype into a finished product written and 
compiled with C++. □ 
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operates on objects of class foo, you would define in class foo 
a member function named operator +. 

Liana also lets you define classes and overloaded 
operators. Instead of the operator keyword, however, Liana 
uses mnemonic names. For example, to define how + 
operates on a Liana class, you define a member function 
called add(). The function for the left shift operator («) is 
put_to() and the function for the right shift operator (») is 
get_from(). The array subscript operator has two different 
function names, depending upon whether you are referencing 
iget()) or assigning to (put()) an array element. 

The predefined Liana classes make liberal use of the 
put_to() function («). For example, to make a new window a 
child window of the main window, you would write 

window child; 

child = new window(“child"); 

// w is main window 
w « child; 

You can define any operator to do anything you like, but 
most of the code supplied with Liana sticks with a few con¬ 
ventions. For example, « usually performs some sort of “ap¬ 
pend to" operation, whether it is adding elements to the end 
of a dynamic array, or adding a child window to a parent 
window. 


Windows 3.0 


Call For 

We are currently seeking articles related to Windows 
limited to: 

• Multithreading in Windows 

• A reusable Hue-Lightness-Saturation dialog box 

• How to use an edit control with large (64Kb) strings 

• A custom control for histograms 

• How to communicate with DOS apps 
from Windows 

• Abetter UINSTUB.EXE 


Papers 

0 development. Potential topics include, but are not 

• An interactive tool for debugging DDE 

• A simple object-oriented graphics library 

• How to write an OLE application 

• A reusable printer setup dialog box 

• A User Report on Windows for Japan 

• Designing a DDE unit for TPW 

• How to perform high-speed animation in Windows 


If you are interested in writing about one of these topics or you have a related idea, please contact our 
editorial staff for author guidelines at (913) 841-1631. 
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Dynamic Arrays 

One of the fundamental classes Liana provides is the array 
class. Many other Liana classes use arrays to automatically 
handle dynamic memory management. Arrays function super¬ 
ficially like C arrays: 

array foo; //declare array 
foo[0] = 5; 
x = foo[0]; 

Liana arrays, however, are dynamic and heterogeneous. 
You do not have to declare a size for them and they will hold 
as many elements as you care to add. Liana arrays support 
several different operations. You store any type of data in the 
same array 

foo [0] = 5; 

foo[l] = "text"; 

foo[2] = new window("foo"); 

or insert a new value into the array, shifting all the other 
elements in the array 

//insert at position 0 
foo.insert(0, "first"); 

or remove an existing element 

//remove foo[l] 
foo.remove(1); 

or append elements to the end, as though it were a stack 

// add to array of strings 
foo « "New Value"; 

Liana takes care of the memory management as the array 
grows or shrinks. Liana also reclaims the memory occupied by 
the array, as soon as you are no longer referencing it. 

C++ Vs. Liana 

Liana's syntax is similar enough to C++ that many C++ con¬ 
structs will compile under Liana, but it is different enough that 
most existing C++ classes will not compile. Many differences 
between the two languages are aimed at making Liana 
programming easier and more forgiving. Some of them are 
just compromises made during the process of implementing a 
C++ syntax in an interpretive environment. 

One important difference between C++ and Liana is how 
functions and member functions work. Liana's rules for pass¬ 
ing function parameters are typical of typeless, interpreted 
languages: simple data types (integer and real, for example) 
are passed by value, whereas complex data types (strings, ar¬ 
rays, and objects) are always passed by reference. Liana class 
member functions are always virtual (that is, you can always 
redefine them in a derived class). Listing 1 (VIRTUAL. L) and the 
resulting window (Figure 1) show how inheritance works in 
Liana classes. 


Liana accepts the C++ class keywords public, private, and 
static, but the pre-release version did not accept the 
protected keyword and did not treat private members dif¬ 
ferently than public members. Just as in C++, the static 
keyword creates a per-class member, rather than a per-in- 
stance member. Liana also defines a public read keyword, 
that delimits class members that can be read but not written 
to. 

Liana classes can have multiple constructors that accept 
different arguments, just as in C++. Liana does not accept the 
C++ syntax for initializing base classes and members, however. 
You must explicitly call the base class constructor from your 
derived class constructor, much the same as with a Turbo Pas¬ 
cal object. 

Liana switch statements are not limited to integral values; 
you can switch on strings as well. Liana case expressions 
need not be constant expressions. Liana supplies many im¬ 
plicit conversions to “do the right thing” so that you do not 
have to declare variable data types. For example, if either 
operand of the addition operator (+) is a string, Liana will con¬ 
vert the other operand to a string (if necessary) and return the 
concatenation of the two strings. If either operand of a rela¬ 
tional operator is a string, Liana will convert the other operand 
to a string and perform a case-sensitive comparison. 

Liana supports functions with a variable number of argu¬ 
ments without all of the tedious macro manipulations that C 
and C++ require. A function declared with a variable number 
of arguments receives the extra arguments in a Liana dynamic 
array. It can use the size() function to find the actual number 


Listing 1 (VIRTUAL.L) 

// VIRTUAL.L - Demonstrate all member functions 
// are virtual. 

class base 
( 

print() ( w « "Base class\n“; } 
print2() { print(); } 
baseprint() { base::print(); ) 

); 

class derived : base 
{ 

print() { w « "Derived class\n"; ) 

}; 

main() { 

w * new textwindow ("base vs. derived"); 
w.show(); 

base b = new base; 
derived d = new derived; 
w « "b.printO:"; 
b.print(); 
w « "b.print2():"; 
b.print2(); 

w « “b.baseprintO:"; 
b.baseprint(); 
w « "d.printO:"; 
d.printO; 
w « "d.print2():"; 
d.print2(); 

w « "d.baseprintO:“; 
d.baseprint(); 

) 

// End of File 

A Simple Inheritance Example 
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of arguments. For example, here is function that calculates the 
maximum of any number of integers: 

int max(first, args ...) { 
biggest = first; 

for(int i=0; i < args.size(); ++i) 
if(args[i] > biggest) 
biggest = args[i]; 
return biggest; 

} 

Memory Management 

With strings and dynamic arrays, Liana eliminates most of 
the drudgery of memory management. Most of the time, 
Liana automatically frees up any memory you have implicitly 
allocated (for example, by building strings and dynamic ar¬ 
rays). One exception to this rule is self-referential data struc¬ 
tures. Consider the following array assignments: 

a[1] = "a string"; 
a [2] « 5; 
a[3] = a; 

This is perfectly legal and having an array that points to itself 
is sometimes desirable. Liana apparently uses a reference 
counting scheme to locate unused memory, and reference 
counting cannot deal with this situation. 


Passive Backplane CPUs 

PC Tech manufactures a full line of modular passive 
backplane high performance PC compatible CPUs in ad¬ 
dition to its line of 34010 and 34020 based video boards. 

Passive backplane based systems have many advantages, 
including ease of assembly, flexibility, fast service (by 
swapping boards), and simple upgrades to new or faster 
processors. 

Contact us for more Information, pricing, and 
benchmark results. 

80386SX : 20 MHz, 512K through 16M DRAM 

80386DX: 25 MHz & 33 MHz, 1M - 32M DRAM, 

128K cache module optional 
80486: 25 MHz & 33 MHz, 1M - 32M DRAM, 

256K cache module optional 
Call, write, or FAX for complete specifications and retail 
or OEM terms. All PC Tech products are available in com¬ 
plete systems as well as components for retail, OEM, and 
private label sales. 

Designed, Manufactured, Sold and Serviced by: 

Voice . . .(612)345-4555 
FAX . . . .(612)345-5514 
Modem . .(612)345-4656 

907 N. 6th St., Lake City, MN 55041 
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To understand the problem, assume that every Liana array 
has an integer associated with it that contains the number of 
Liana variables that refer to it. So, if you create an array a, the 
reference count becomes 1. If you pass that array to another 
function, the reference count becomes 2. Liana decrements 
the reference count whenever a reference to the array is 
deleted (for example, by setting the variable to NULL, or be¬ 
cause the variable goes out of scope). In the previous ex¬ 
ample, however, the reference count is 2 because both a and 
an element of a refer to the same array. When a goes out of 
scope, the reference count goes to 1 and never gets set to 0. 

For situations like this, you have to explicitly set the array 
element that contains the self-reference to NULL. Fortunately, 
Liana supplies a free() function that will set all the members 
of a data structure to null. 

You can also manage memory explicitly yourself. Liana 
defines memory as a data type that contains Windows global 
memory blocks. Liana includes both a malloc() that returns a 
new memory block and a free() that correctly frees up the 
memory block. You can treat such variables as strings and 
operate on individual bytes with the subscript operator. The 
principal use of such explicit memory management is to com¬ 
municate with DLLs. 


Listing 2 (zoom.l) 

// ZOOM.L - Zooming on Graphics. 

main ( 

window (); 
w.menu = new menu 

« new menuitem ("SUnzoom!") 

« new menuitem ("Zoom &In!") 

« new menuitem ("Zoom &0ut!"); 
unzoom (); 

} 

paint ( 

w.brush = null; 
w.line (-40, -40, 40, 40); 
w.line (-40, 40, 40, -40); 
w.circle (0, 0, 5); 
w.circle (0, 0, to); 
w.circle (0, 0, 20); 
w.line (-30, 30, 30, 30); 
w.line (-25, 20, 25, 20); 
w.line (-15, -20, 15, -20); 
w.line (-5, -30, 5, -30); 

} 

set_window (xl, yl, x2, y2) { 

w.data_window (xl, yl, x2, y2); 
w.refresh; 

} 

unzoom (set_window (-50, 50, 50, -50);} 

zoom_in (set_window (-20, 20, 20, -20);} 

zoom_out (set_window (-100, 100, 100, -100);} 

resized (int width, int height) ( 
int d « (width - height) / 2; 
w.top_margin » w.bottom_margin =d>0?0:-d; 
w.leftjnargin = w.rightjnargin * d > 0 ? d : 0; 

} 


Zooming on Graphics 
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Accessing DLLs 

Any language for writing Windows programs must provide 
access to dynamic link libraries (DLLs). If the language fails to 
provide some feature you need, you can always implement it 
in C or another language, store it in a DLL, and access it that 
way. Also, many high-level software packages (such as 
database routines) are packaged as DLLs. Finally, the Windows 
API itself consists of DLL calls, so if your language provides DLL 
access, you have implicitly provided access to the Windows 
API. 


To access a DLL from Liana, you have to declare it and 
then call it Declaring a DLL function is like declaring any other 
Liana function except you append a quoted string that 
specifies the library name and function name: 

int foo(int arg) "mydll:func" 

Note that this is one of the few instances in Liana where ex¬ 
plicit data type declarations are required; that is the simplest 
way to make sure the DLL function receives the correct size 
and type of data. If you make a mistake declaring the argu¬ 
ment types of a DLL function, the result may be a system 






Listing 3 (cursor.l) 


// SAMPLE25.L - Demonstrate Predefined and Custom Cursors. 

cur2 = new cursor (15, 0) « 







X 

" « 

main 





" bib 

" « 

{ 





’ bi ib 

" « 

window 

0; 




“ bi ib 

" « 

w.menu 

= new menu 




" bi ib 

" « 

« 

new menuitem 

("&Arrow") 



" bi ib 

" « 

« 

new menuitem 

("&Wait") 



" bi ib 

" « 

« 

new menuitem 

("&Cross") 



■ bi ib 

" « 

« 

new menuitem 

("&Ibeam") 



“ bi ib 

" « 

« 

new menuitem 

("Icion") 



“ bi ib ■ « 

« 

new menuitem 

("Si&ze") 



11 bi 

i b " « 

« 

new menuitem 

("Size&NESW") 



" bi 

ib " « 

« 

new menuitem 

("SizeN&S") 



“ bi 

ib "; 

« 

new menuitem 

("SizeNWS&E") 



} 


« 

new menuitem 

("Size&WE") 





« 

new menuitem 

("&UpArrow") 



set cursor (string name, any cursor) 

« 

new menuitem 

("Cur&l") 



( 


« 

new menuitem 

("Cur&2"); 



cur cursor = name; 







w.cursor = cursor; 


curl ■ 

new cursor « 



} 


“xbbbbbb 


" « 




"bbbbbb 


11 « 


wait (set cursor ("wait", 

"wait");} 

"bbbbb 


11 « 


arrow (set cursor ("arrow". 

"arrow");} 

"bbbbb 


11 « 


cross (set cursor ("cross". 

"cross");} 

"bbbbbb 


11 « 


ibeam (set cursor ("ibeam", 

"ibeam");} 

"bb bbb 


" « 


icon (set cursor ("icon", 

"icon");} 

"b 

bbb 


" « 


size (set cursor ("size". 

"size");} 

II 

bbb 


" « 


sizenesw (set cursor ("sizenesw", 

"sizenesw");} 

II 

bbb 


" « 


sizens (set cursor ("sizens", 

“sizens");} 

II 

bbb 


" « 


sizenwse (set cursor ("sizenwse". 

"sizenwse");} 

II 

bbb 


11 « 


sizewe (set cursor ("sizewe". 

"sizewe");} 

II 

bbb 


" « 


uparrow (set cursor ("uparrow", 

"uparrow");} 

II 

bbb 


" « 


curl (set cursor ("curl", 

curl);} 

II 

bbb 

" « 


cur2 (set cursor ("cur2", 

cur2);} 

II 



" « 


cur3 (set cursor ("cur3". 

cur3);} 

II 

bbb 

" « 


cur4 (set cursor ("cur4", 

cur4);} 

II 



" « 


cur5 (set cursor ("cur5", 

cur5);} 

" 


bbb 

" « 


cur6 (set cursor ("cur6", 

cur6);} 

II 



11 « 




II 


bbb 

" « 


paint (w.roundrectangle (50, 50, 

w.width - 50, w.height - 

II 



" « 


50, 50, 50);} 


II 


bbb 

" « 




II 



" « 


position (x, y) (w.home; w « x+‘ 

,"+y+" " +cur cursor+" 

II 


bbb 

" « 


M 


II 



" « 




II 


bbb 

" « 


click (x, y) 


II 



" « 


{ 


II 


bbb 

11 « 


// Can't draw predefined cursors. 

II 



" « 


if (w.cursor.isa ("string")) 


II 


bbb 

" « 


beep (); 


II 



" « 


else 


II 


bbb"; 


w.cursor.draw (w, x, y); 

\ 







/ 

// End of File 
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Figure 2 (zoom.tif) 
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crash. Liana always assumes that the DLL function calling se¬ 
quence is of type FAR PASCAL, which is usually the case. 

Liana supports all the data types you need to communi¬ 
cate with a DLL function except long double (the new 
Microsoft C 10-byte real). Liana handles string arguments spe¬ 
cially. If you declare a DLL function argument of type char*, 
Liana will make a temporary copy of the string and pass that 
to the DLL function. If you want the DLL function to be able to 
modify a string parameter, you have to allocate it yourself 
with malloc(). Liana cannot free up memory pointers 
returned by DLL functions. 

Windows Support 

Many global variables, built-in functions and predefined 
classes that Liana includes are designed to support typical 
Windows programming tasks. The major types of Windows 
screen entities have corresponding Liana classes. For example, 
there is a window class, a menu class, a font class, a cursor 
class, and so on. There are also higher-level classes to support 
text windows, file browsing windows, DDE, graphics, MDI ap¬ 
plications, and so on. These predefined classes form an API 
that is simpler and operates at a higher level than the default 
Windows API. 

The window class is fundamental to many Liana classes and 
contains many data members and member functions. You can 
create your own class of window by creating a new class, 
derived from class window, in your new class, you can redefine 
how the window responds to specific Window messages by 
redefining specific window member functions. For example, you 
could define a window that beeps whenever you press a key, 
by redefining the window member function key(): 

class beepwin:window { 

beepwin(title){window(title);) 
void key(string c) { 

MessageBeep(O); 


The Liana classes along with the sample programs give you 
a head start on writing a Windows application. For example, 
Listing 2 shows a complete sample Liana program that draws 
a graphic image you can zoom in or out on (Figure 2). The 
resized() function is a callback function that gets called 
whenever the window is resized. If you compare this program 
to the equivalent C program, you can see that Liana handles 
much of the rote programming. 

Liana also supports a subset of the standard C runtime 
library. This encourages you to just write C code and assume 
it will compile. All the most common functions such as 
strlen(), strcpy(), sprintfO, fopen(), fclose(), atoi(), 
abs(), and so on, are all part of the default Liana library. 

Liana allows you to create Windows resources dynamically, 
even icons, cursor, and bitmaps. Listing 3 shows a sample pro¬ 
gram that creates not only the window menu at runtime, but 
also cursor bitmaps (see Figure 3). In the strings that construct 
the cursors, letters mark the pixels that are black (b), white (w), 
transparent (a space), or inverted (i). Cursors have a "hot spot,” 
and the letter x designates the hot spot pixel. 
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DDE 

An example of a typical Windows programming task that 
Liana supports is Dynamic Data Exchange (DDE). Liana makes it 
easy to be either a DDE client (accessing data in other Win¬ 
dows applications) or a DDE server (providing data to other 
applications). Listing 4 contains the complete source to a 
simple DDE server that supplies the current date and time. 

DDE access is via an application-topic-item hierarchy. Liana 
initializes the global variable apname to contain the name of 
the application; it uses the value of that variable to establish 
its application name for DDE conversations. Liana initializes the 
global variable services to contain a table of DDE topics. To 
create a new DDE topic, you simply create a new service ob¬ 
ject and assign it to the services table, using the topic name 
as a string subscript. 

Whenever you want to update an item under the new DDE 
topic, you simply assign the new value to the service table, 
using the item name as a string subscript. The predefined 
Liana class is smart enough to send the updated value to any 
hot links that have been established for that item. The 
equivalent process in a C program would require many lines 
of code. 

Utilities 

LICON is a Liana utility that converts between a Liana class 
and a . ICO (Windows icon) file. It can convert either format to 
the other. Liana only supports 16-color 32-by-32 pixel icons. 

LXMOD is a utility designed to help you convert your Liana 
program into another language. The 
basic idea is to assign each literal string 
in your program to a unique global vari¬ 
able. You can then use LXMOD to alter 
any of the strings in your executable 
Liana program. For example, 

lxmod m title="hola mundo" foo 


changes the string pointed to by the 
global variable m_title in FOO.EXE into 
the string hola mundo. In practice, you 
probably would be converting many 
strings, so LXMOD also accepts a file full 
of variable names and string values. 

LCMAP generates class hierarchy 
maps of classes contained in Liana 
libraries. It can produce a base class 
map that lists all the classes in al¬ 
phabetical order, accompanied by a list 
of all the parent classes of each class. It 
can also produce a derived class map 
that shows the derivation tree for each 
class. 

One interesting feature of the Liana 
runtime is that it is always capable of 
generating a screen dump. If you press 
Ctrl-Shift-FlO with the cursor in a 
Liana window, Liana will produce an En¬ 
capsulated PostScript (EPS) file contain¬ 
ing the screen image of that window. 


Figure 3 (cursor.tif) 



_ Dynamic Cursor Demonstration _ 

Documentation 

The Liana documentation is the 350 page Programmer's 
Re/erence Manual. The bulk of the manual can be divided into 
two sections. One major section describes the sample 
programs. Each part of this section contains the code from a 
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Listing 4 (dde.l) 

// SAMPLE45.L - DDE Server for Excel Hotlinks. 


main 
{ 


} 


services ["test"] ■ sv ■ new service; 
sv ["date"] = "N/A!"; 
window (); 

w.menu « new menu « new menuitem ("&Excel!"); 


excel {spawn ("Excel");} 

paint {w « "Click to update date.. AnDate: " « sv 
["date"];} 

click 

{ 

sv ["date' 1 ] = ctime (); 
w.refresh; 

} 

// End of File 


A Simple Liana DDE Server 

sample program, a screen shot of the corresponding window, 
and a discussion of how the sample works. The other major 
part of the manual is devoted to documenting all the built-in 
functions and global variables, and predefined classes that 
come with Liana. This is as essential to Liana programming as 
the SDK documentation is to writing Windows programs in C. 
Source is included for many of the classes, so you can use 
them as coding examples or alter them to suit your needs. 

Smaller parts of the manual are devoted to a short sum¬ 
mary of the language syntax, the utilities, differences between 
Liana and C and C++, and rules for calling DLLs. The index is 17 
pages - mostly because it contains references to the many 


global variables, functions, and member functions in the pack¬ 
age. 

Summary 

Liana is a good-sized language with many features to ease 
Windows application development. The extensive sample 
programs and wide range of built-in functions and predefined 
classes are an important part of the package. Along with the 
high-level support, you can access every feature of the Win¬ 
dows API via DLL functions. It is impossible to cover all of the 
capabilities of the package in a short space, but this article 
should give you a good overview of Liana. 

The language options for Windows developers continue to 
grow. Interpreted languages like Liana exchange speed of ex¬ 
ecution for speed of development. If you already know C++ or 
even C, Liana also offers a very small learning curve. The 
similarity to C++ may also make it easier to transform a Liana 
prototype into a final product written in C++. If you are a C or 
C++ programer developing Windows applications, you should 
be aware of what Liana can do; Windows developers need all 
the help they can get. □ 
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New Products 

Industry-Related News & Announcements 


Rule-based Language Supports Windows 

Inderdata Development Group has released RuleTalk, a 
rule-based programming language for Microsoft Windows 
3.0. RuleTalk is a multitasking language with Prolog-like back¬ 
tracking and goal seeking capabilities. The language was 
designed to allow Al programmers to write Al Windows 
programs without having to learn the Windows API. RuleTalk 
provides over 200 Windows GUI and other API functions. The 
classic "Hello world” program requires only two lines of code. 

The language includes long integer, floating point and bit 
operation math functions. A series of internal vector func¬ 
tions supports fast vector and matrix operations. RuleTalk 


supports strings of up to 65,000 characters, communications, 
DDE, and direct port I/O. RuleTalk is a complete Windows 
development environment that includes a 100 lines/second 
compiler, a command-line interface, and execution tracing. 
The package also includes a source browser and a source 
debugger written in RuleTalk. 

RuleTalk costs $395 and includes the source for the 
source browser and the source debugger. For more informa¬ 
tion, contact Interdata Development Group, 951 Old Coun¬ 
ty Road, Suite 169, Belmont, CA 94002, (415) 598-0150. 


Vleermuis Releases GUI_Master For Windows 


GUI_Master is an object-oriented toolkit that speeds up 
the development of event-driven, window-based, C++ 
programs. The OS/2 version of GUI_Master has been available 
since January and Vleermuis has now released a Windows 
version that supports Zortech and Glockenspiel C++ com¬ 
pilers (the Borland C++ version is in beta). 

GUI_Master consists of three parts. The Interface Builder 
allows programmers to paint the user interface of the ap¬ 
plication and automatically generate the corresponding C++ 
code. The Browser helps programmers navigate through 


their code. The GUI_Master Class Tree contains 85 GUI clas¬ 
ses, providing functionality that is not available in either the 
PM or Windows toolkits. 

GUI_Master requires Zortech C++ v2.1x or Glockenspiel 
C++ v2.x. The OS/2 version of GUI_Master costs $495 and the 
Windows version costs $545. Free demonstration disks of 
both versions are available for evaluation. For more informa¬ 
tion, contact Vleermuis Software Research bv, P.O. Box 
2584, 3500 GN Utrecht, The Netherlands, +31-30 32 49 44; 
FAX+31-30 31 04 26. 


DLL Accesses Windows Images 

Data Techniques has introduced ImageMan, a Windows 
DLL for accessing image files. ImageMan allows Windows 
programs to access many types of image files with the same 
set of function calls. ImageMan supports TIFF, PCX, Encapsu¬ 
lated PostScript, and Windows Metafile and Bitmap image 
formats. The ImageMan library is written in C and assembly 
language for speed and can display or print full or partial im¬ 
ages. Since ImageMan is a DLL, you can call it from most any 


Windows language: C, C++, Turbo Pascal for Windows, Visual 
Basic, Smalltalk/V, Actor, and so on. 

ImageMan is royalty-free and costs $395, or $995 with 
complete source code. For more information, contact Data 
Techniques, Inc., 1000 Business Center Driver, Suite 120, 
Savannah, GA 31405, (800) 868-8003. 
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Embedded DOS Competes With Microsoft 

General Software has announced Embedded DOS, a new 
operating system to compete with Microsoft's ROM DOS. Em¬ 
bedded DOS provides the full functionality of MS-DOS 3.31 
with a more robust, real-time implementation that offers 
more reliability and performance for embedded applications. 

Developers can buy an “adaptation kit" that includes the 
components of the DOS. The kit lets developers combine and 
customize the components of the DOS to meet the require¬ 
ments of the embedded environment The kit includes 
source code for all the base device drivers, COMMAND. COM, and 


EmmaSoft Updates SUPER-MAINT 

EmmaSoft has released version 2.00 of its shareware 
wake utility, Programmer’s SUPER-MAINT. SUPER-MAINT is 
designed for the programmer who doesn’t want to bother 
learning about wake files. The SUPER-MAINT Editor lets you 
“point and shoot” at the files you want in your program. 
Once you set up the preferences, the fully configurable pro¬ 
gram automatically builds your wake files, as well as 
response files for the linker or librarian, in three easy steps. 

It also builds “indirect" files for Gimpel Software’s PC-lint, and 
“list” files for Clear Software, Inc.'s Clear+. The make file 
generated is fully documented. 

SUPER-MAINT remembers the last command flags you 
used and even the name of the make file. Version 2.00 also 


utility programs to allow the designer to customize the DOS 
to run on special or unique hardware. The kit also contains a 
special version of the DOS kernel that support symbolic 
debugging during development 

Embedded DOS developer kits costs $495 and royalties 
are based on volume commitments, between $2 and $6 per 
copy. For more information, contact General Software, P.O. 
Box 2571, Redmond, WA 98073, (206) 391-4285; FAX 
(206) 746-4655. 


remembers which memory model you compiled each of 
your programs in. This version also allows you to totally 
rebuild a program in one step and maintain multiple setups 
for different compiler brands or library setups. The installa¬ 
tion program can now convert version 1 setup files to ver¬ 
sion 2 and reinstall a setup file. 

Since SUPER-MAINT is a shareware program, users may 
try it for 30 days before buying it. SUPER-MAINT costs $55. 
For more information, contact EmmaSoft, P.O. Box 238, 
Loosing NY 14882-0238, (607) 533-4685; BBS (607) 533- 
7072. 


Object/1 Supports Extended Edition 

Micro Data Base Systems, Inc. is now shipping the Ob¬ 
ject/1 Professional Pack for the IBM Database Manager Ex¬ 
tended Edition. This package allows Object/1 applications to 
access IBM Extended Edition databases. 

The package contains a low-level DLL interface and a 
high-level Object/1 interface. The DLL is written in C and 
provides a general-purpose API for applications written in Ob¬ 
ject/1 or other languages. This API supports initializing com¬ 
munication with Database Manager, opening and closing 
databases, executing SQL queries and retrieving results. As 
many as 16 simultaneous cursors can be open within ap¬ 
plications using the DLL. Multiple applications can access the 
DLL simultaneously. The Object/1 interface consists of a class 


library that supports embedded SQL statements, retrieving 
result data, acessing database services, a query manager 
and displaying data in report formats. This interface also sup¬ 
ports bitmap image storage and retrieval. 

The Pack comes with an Object/1 class library for 
Database Manager, 11 Object/1 classes containing nearly 300 
methods, complete source code, technical documentation 
and 90 days of phone support. The IBM Database Manager 
Professional Pack costs $495. Object/1 costs $995. For more 
information, contact mdbs, Two Executive Drive, P.O. Box 
6089, Lafayette, IN 47905, (317) 447-1122, ext 256; FAX 
(317)448-6428. 


Whitney Ships Visual Compare 

Visual Compare is a File comparison program for program¬ 
mers. Using Visual Compare's visual mode you can see the 
differences between two source files in a full-screen display 
and selectively discard differences. In visual mode, you view 
a scrollable display of a composite of the two source files. 
Display attributes differentiate the common, deleted, and in¬ 
serted lines that make up the composite file. 


Visual Compare costs $30 for DOS or OS/2 and $45 for 
both DOS and OS/2. A free demonstration version is avail¬ 
able. For more information, contact Whitney Software, Inc. 
P.O. Box 4999 Walnut Creek, CA 94596 (415) 933-9019. 


Microsoft Releases Source Profiler 

Microsoft is now shipping the Microsoft Source Profiler 
for DOS, Windows, and OS/2. Source Profiler is designed for 
developers who want to test and optimize applications writ¬ 
ten using Microsoft Languages products, including Microsoft 
C, FORTRAN, BASIC, Macro Assembler, COBOL professional 
development systems, Microsoft Pascal Compiler, Microsoft 
QuickBasic, and QuickC with QuickAssembler. 

The profiler generates statistical information about a pro¬ 
gram as it executes. It can report on execution times, execu- 
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tion counts (the number of time a line or function was ex¬ 
ecuted), and execution coverage (locating lines or functions 
that were not executed). 

The Source Profiler costs $79; registered users of 
Microsoft language products can buy it for $49.95. For more 
information, contact Microsoft Corporation, One Microsoft 
Way, Redmond, WA 98052-6399 (206) 882-8080; FAX 
(206)883-8101. 
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Visual Basic Kit Supports Server 


Microsoft Corporation is now shipping a Visual Basic 
Library and Software Development Kit (SDK) for Microsoft SQL 
Server. This SDK will allow Visual Basic applications to access 
SQL Server databases via the DB-Library API. Developers can 
also use Visual Basic Library for SQL Server with the Database 
Gateway from Micro Decisionware to build graphical applica¬ 
tions that access DB2 and other IBM mainframe databases. 


The Visual Basic Library for SQL Server costs $495 and in¬ 
cludes the programming libraries, a preliminary documenta¬ 
tion set and a copy of Visual Basic. For more information, 
contact Microsoft Corporation, One Microsoft Way, Red¬ 
mond, WA 98052-6399 (206) 882-8080; FAX (206) 883- 
8101. 


Qualware Announces QualBase 

Qualware has released QualBase for DOS, a new set of 
C++ class libraries designed to increase programmer produc¬ 
tivity. QualBase for DOS provides the fundamental classes 
and pseudo-templates (templates implemented with 
macros) necessary for deriving and implementing other C++ 
classes. A partial list of classes includes arrays, lists, strings, 
interrupts, registers, binary trees, bit vectors and queues. 


Pseudo templates are provided for arrays, lists, queues and 
binary trees. 

QualBase costs $85 and includes documentation, source 
code and a PolyDoc/SourceDoc library for online help. Poly- 
Doc and SourceDoc are not included in the QualBase 
product. For more information, contact Qualware at (714) 
259-1322. 


Microsoft Updates FORTRAN 

Microsoft Corporation has released Microsoft FORTRAN 
v5.1. This version allows FORTRAN programmers to develop 
Windows applications. Included with FORTRAN v5.1 is the 
new QuickWin library, which allows programmers to port 
DOS FORTRAN applications to Windows without changing 
their code. This version also supports the development of 
Windows DLLs. 

The QuickWin library also gives FORTRAN programs ac¬ 
cess to extended and virtual memory. Most 16-bit FORTRAN 
applications can be moved to Windows without source chan¬ 
ges. The QuickWin library also allows FORTRAN screen out¬ 
put to be cut-and-pasted into other Windows applications. 


The FORTRAN compiler supports ANSI 77 and numerous IBM, 
VAX and ANSI 8x extensions. 

The FORTRAN professional development system includes 
the CodeView debugger, Advisor online help, the Source 
Browser and the complete Microsoft Programmer's Work- 
Bench. Microsoft FORTRAN v5.1 costs $450 and an upgrade 
from previous versions costs $ 150 until June 1,1992. For 
more information, contact Microsoft Corporation, One 
Microsoft Way, Redmond, WA 98052-6399 (206) 882- 
8080; FAX (206) 883-8101. 


Software Analyzes C++ Testing 

Bullseye Software has released C-Cover v2.1, a test 
coverage analyzer for C and C++. Programmers and testers 
can use C-Cover to find untested code and measure testing 
completeness quantitatively. C-Cover uses condition 
coverage analysis to analyze programs at the control struc¬ 
ture level, the function level, and the source file level. Fea¬ 
tures include the ability to selectively include or exclude 


portions of a source file, manual control of data saving, built- 
in report sorting, and transferring coverage data to 
worksheet programs. 

C-Cover costs $400 for MS-DOS, $1000 for 32-bit DOS ex¬ 
tenders and $1500 for Unix. For more information, contact 

Bullseye Software, 5129 24th Ave NE Suite 9, Seattle, WA 
98105-3230, (206) 524-3575. 


DeltaFile Automates Updates 

DeltaFile is a new developer's tool that creates ex¬ 
ecutable “changes only" programs based on the differences 
between an old set of files and a new set of files. These tiny 
programs can update old versions of software to new ver¬ 
sions in a matter of seconds. Software updates often involve 
sending multiple floppies of data. With DeltaFile, you send 
only the changes and greatly reduce the amount of data 
that must be transferred. 

The “change file” is constructed so that it can be safely 
distributed via public BBS at no cost or risk to the developer. 


The change file only has value when run against an old ver¬ 
sion of the Files. It is automatically data encrypted, can be 
further secured with a password, and can be compressed 
during creation for even more disk savings. 

DeltaFile costs $249.95. A demonstration version is avail¬ 
able on the company’s BBS. For more information, contact 
hyperkinetix, 615 North Poplar Street, Orange, CA 92667, 
(714) 935-0823; FAX (714) 935-0831; BBS (714) 935-0832. 
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TECH Specialist 

Call For Papers 


TECH Specialist, the journal for advanced PC 
programmers, is seeking articles on the topics 
below. If you have an idea for a related story 
and experience that would especially qualify 
you to write on one of these topics, contact the 
TECH Spec editorial staff for Author Guidelines 
at: 


TECH Specialist 

2601 Iowa St. 
Lawrence, KS 66046 
(913) 841-1631 
FAX (913) 841-2624 


TOPICS 


Internationalization 


■ Proposals due 9122/91 
manuscripts due 10/13191 

Suggested topics: How the 
Unicode standard affects PC 
software. Using DLLs to localize 
Windows software. Handling 
multi-byte strings. European 
localization issues. Japanese 
localization issues. A User 
Report on Windows for Japan. 


Alternative 
Operating Systems 

■ Proposals due 10/20/91 
manuscripts due 11/10/91 

Suggested topics: How to pro¬ 
gram for pen-based operating 
systems. Porting from Windows 
to DesqView. Using QNX to write 
real-time applications. How to 
create and manage virtual 8086 
machines. A User Report on PC- 
MOS. A survey of DOS sub¬ 
stitutes. 


Multimedia 


■ Proposals due 11/5/91 
manuscripts due 12/11/91 

Suggested topics: How to sup¬ 
port the MPC standard. Using the 
Microsoft Multimedia Development 
Kit. Using DVI to incorporate live 
video. An introduction to MIDI on 
the PC. Mixing sound and data on 
a CD-ROM. 


We prefer very practical and detailed treatments of 
real problems encountered when working on PC 
platforms. Topics should be of practical interest to 
professional developers working under MS-DOS or 
OS/2. Accompanying code may be in BASIC, Pas¬ 
cal, C, assembly, C++, or another language if the 
nature of the story requires it. 


We pay at rates competitive with other national 
technical journals and provide better editorial assis¬ 
tance than most. 

Proposals should include a short abstract, a one- 
page outline, and a brief resume of the author’s 
qualifications. When mailing the proposal, please 
include a hard copy and an ASCII text file on an 
MS-DOS formatted disk. 
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Readers' Forum 


We ask that letters with code listings be 
submitted in an ASCII text file on an MS- 
DOS formatted disk. Providing us an 
electronic copy of the code will prevent 
typographical errors that might result 
from optical scanning or re-keyboarding. 


Mr. Burk, 

This is in response to Mr. Gregg 
Jennings's letter which appeared in the 
Readers’ Forum of the June 1991 issue. 

I was working on a program to for¬ 
mat floppies and I encountered the 
same symptoms that Mr. Jennings 
described. In my case, I was using BIOS 
Int 13H, Function 05H to format the 
floppy. I was able to determine that the 
problem appeared under MS DOS 3.3, 
but not under MS DOS 2.11. Like Mr. Jen¬ 
nings, under MS DOS 3.3, I was able to 
successfully format the floppy only after 
the floppy had been accessed via the 
DIR command. Attempting various com¬ 
binations of using Int 13H, Functions 
OH, 17H and 18H on my 386 (with 
Phoenix BIOS) would not remedy the 
situation. I also encountered the same 
problem on my XT-done which uses a 
BIOS carrying a copyright notice from 
ARC. 

I was able to determine that under 
MS DOS 2.11, FORMAT.COM works by 
using BIOS Int 13H, Function 05H calls. 
Under MS DOS 3.3 however, FORMAT.COM 
has been rewritten to utilize DOS Int 
21H, Function 44H, Subfunction ODH calls 
(Generic I/O control for Block Devices). 

DOS Int 21H, Function 44H, Subfunc¬ 
tion ODH will function properly without 
the requirement of accessing the floppy 
first via the DIR command. Mr. Jennings 
can utilize this function as a replace¬ 
ment for DOS Int 25H. He should note 
however that Int 21H, Function 44H, 
Subfunction ODH can only read an entire 
track at one time. It is opposite to Int 
25H, which is capable of reading one or 
more consecutive sectors. 


I am sorry that I don't have an ex¬ 
planation as to why interrupts 13H and 
25H do not function properly, but 
maybe this additional information will 
assist someone else in determining the 
exact problem. I would be interested in 
hearing the explanation of the problem, 
if one is ever determined. 

Richard L. Rosenheim 
5712 North Casa Blanca Road 
Paradise Valley, A L 85253 

Thanks, and read on... -rib 


Dear Ron: 

The letter from Gregg Jennings in the 
June 1991 issue and your response, plus 
your response the month before con¬ 
cerning a request for more information 
on device drivers, is getting through to 
me. I guess I’ll have to write something. 
Meanwhile, concerning the INT 25H 
failure, it’s not a bug, it’s a feature! 

INT 25H is a DOS function to per¬ 
form an absolute disk read. DOS uses 
INT 25H to determine the disk 
parameters therefore it must perform 
this function without first determining 
the disk size. If no disk service call has 
been made using INT 21H, wherein DOS 
will discover exactly what size disk it 
has, then DOS "knows" without even 
looking that the sectors above the FCH 
specified limit are out of bounds. 

The cure? Simply don’t turn off your 
computer. When PCs were first intro¬ 
duced, there was considerable discus¬ 
sion on whether to leave PCs on all the 
time or turn them off. Electronics buffs 
said leave them on as the thermal 
shock will cause the chips to fail faster. 
Hardware buffs said to turn them off 
otherwise the motors and drives will 
wear out. With the introduction of hard 
disk drives with a relatively short life, 
the turn-off group won. 


A better cure is to change your pro¬ 
gram to first perform a regular DOS 
function on the drive before the INT 
25H would suggest a “Search for First 
Match” using INT 21H function 4EH with 
a file name of *. * and ignore the result. 
Of course, if you are trying to read sec¬ 
tors from a non-DOS disk, then you 
must use INT 13H. 

Sincerely yours, 

Clifford j. Vander Yacht 
2363 Lourdes Drive West 
Jacksonville, FL 32210 

Well, you roughly tied with another 
reader from Florida who is sending in 
a code example. Since you both basi¬ 
cally agree on what the problem is, I 
have to suspect you are right. Thanks, 
Clifford. I should have known that 
someone who has hung a 3.5" drive 
off their XT would know the answer to 
this one! -rib 


Dear TECH Specialist, 

I am renewing my subscription to 
TECH Specialist with some hesitation. It 
seems that TECH Specialist is becoming 
another C-oriented publication. I know, I 
know, your response will be something 
like “....we’re just providing what our 
readers want...” Well, I’ve been reading 
your letters to the editor column, too, 
and many people seem to be complain¬ 
ing. 

I am not going to sit here and say 
that assembly or BASIC are better lan¬ 
guages than C, each has its place. But 
let’s face it, you’ve got to have a good 
amount of hard disk space (10 megs +) 
dedicated just for the function library. I 
am proficient in many languages (and 
many assembly languages) and I would 
really like to program in C, but frankly I 
can’t see loading oodles and oodles of 
functions to do what I can in a couple 
of lines of BASIC or an assembly macro. 
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Your magazine needs to be open 
minded if it is going to survive. Yeah, go 
ahead and keep on publishing those C 
programs, but, don't forget about all of 
those other languages out there includ¬ 
ing DOS batch files. Batch files can be 
really powerful and can meet many 
needs if one sets one’s mind to it. 

Also, I would like to point out some 
errors in the July 1991 article entitled 
"Programming The Hayes Enhanced 
Serial Interface.” Mr. Volkman stated 
that the ESP's onboard co-processor is 
an 8-bit Intel 8031. He stated that this 
chip is similar to the Intel 8042 used to 
control your PC's keyboard. This is a 
stretch of the truth at best. The 8031 
and 8042 are from entirely different 
families. Also many newer keyboards 
use microcontrollers from the '51 fami¬ 
ly. 


The bigger mistake was made on 
page 55 when Mr. Volkman was 
describing allocation of the ESP's 8K of 
RAM. He stated that there are four 
FIFOs, each IK in size, thus leaving 4K 
for the 8031 to use as stack and pro¬ 
gram variables. Microcontrollers in the 
'51 family (which the 8031 belongs to) 
must use “Internal RAM" for their stack 
space. This RAM is not part of the exter¬ 
nal 8K. Part of this internal RAM in¬ 
cludes its registers. 

Doesn't anybody at TECH Specialist 
proofread this stuff? Do you depend 
solely on the writer for accuracy and in¬ 
tegrity? How many other articles have 
these kind of inaccurate statements in 
them to which I or your other readers 
are not versed? 

George McLam 
P.O. Box 417124 
Sacramento, CA 95841 


Thank you for renewing your sub¬ 
scription. You are right about the ar¬ 
ticle mistakenly placing the stack in 
external RAM — it is internal RAM. 
Thank you for the correction. Victor 
mainly picked the 8042 to compare to 
the 8031 because more programmers 
are likely to be familiar with it (since 
nearly every PC has an 8042 in it). I 
think that, on balance, Victor’s article 
was pretty good. If you have ever 
reviewed a product, you know it is a 
lot harder than writing the typical ar¬ 
ticle. You might have intended some 
of your questions to be rhetorical, but I 
would like to answer them anyway. 

First, the question of language 
balance. Our goal is to reflect our 
readership. Currently, we do not print 
enough BASIC and Pascal code to 
meet that goal. We get lots of 
proposals for articles on C and as- 




0:41 

MM 



TLIB" is FASTEST! 
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RCS™ 4.2 PVCS'“ TUB’" 3.0 TUB™ 5.0 

Times are to update a 45K library on a PC/XT. PVCS and TLIB 3.0 are 
from Sept 87 PC Tech Journal. MKS RCS 4.2 and TLIB 5.0 are newer 

TLIB™ is BEST! 

"Do nor be fooled by the fact that this is the 
least expensive of the five packages reviewed 
here - TUB has features and power to spare" 
John Rex, Computer Language 
“TUB is a great system" J. Vallino, PC Tech J 

. Full-Featured Version Control for Software 
Professionals. Check-in/out locking. Branching. 
Keywords. Wildcard and list-of-file support. Can 
merge parallel changes and undo intermediate 
revisions. Network and WORM support. Main¬ 
frame compatible deltas for Pansophic, ADR, IBM, 
etc.. Integrates with Opus™ MAKE & Slick™ MAKE. 

MS-DOS $139, OS/2 $195 + shipping visa/MC 
5 station LAN license $419 (OS/2 $595), call for other sizes 

BURTON SYSTEMS SOFTWARE 

PO Box 4156, Cary, NC 27519 (919)233-8128 


INTEL® 80486 
MACRO DISASSEMBLER 

MD86 (Masterful Disassembler) is the 
most comprehensive macro disassembler 
on the market. Interactive by design not 
after-thought. Features include: 

► User defined macros with arguments 

► Auto code/data separation 

► Auto commenting and label naming 

► Command menus and help screens 

► Customizable disassembly options 

► Comprehensive, indexed, manuals 

► Fully supports 8086/87 thru 80486/87 

► COM/EXE/SYS/memory/other^ 

► Cross reference and more! 

Still only $67.50 +tax ($1.50 s/h) 

C.C.SOFTWARE 
1907 ALVARADO AVE. 

WALNUT CREEK, CA 94596 
(415)939-8153 
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Transputer Education Kit 

for students, professionals, and hobbyists 

$396 

• PC add-in board including 20-MHz 32-bit T400 

transputer, PC interface, and 1 Mbyte memory 

• T400 C compiler and assembler 

• T400 Occam2 compiler and debugger 

• 1500 pages of documentation, including schematics 

• Example and demonstration programs 



CSA also carries a complete line of professional 
transputer products including boards, software develop¬ 
ment tools, and multi-user parallel processing systems 

Computer System Architects 

950 N. University Avenue • Provo. UT 84604 
(801) 374-2300 • 1-800-753-4CSA 


\RCTOS 

SYSTEMS CORPORATION 

X-Port Parallel Adapter 

Expand mass store capabilities 

Attach CD-ROM and SCSI based 
peripherals to a single parallel port 

Comes with drivers for DOS, MSDEX 

Low power, compact size 

For notebooks, laptops, desktops 

$225 + shipping & handling 

PO, Cheque, VISA 

300 March Rd., 4th Floor, 

Kanata, Ontario, Canada, K2K 2E2 
(613) 591-3084 (613) 591-1806 (fax) 
Dealer & OEM enquiries welcomed 


□ Request 179 on Reader Service Card □ 
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Opt-Tech Sort/Merge 


Extremely fast Sort / Merge / 
Select utility. Run as an MS- 
DOS command or CALL as a 
subroutine. 

Supports most languages and 
filetypes including Btrieve and 
dBase. Unlimited filesizes, mul¬ 
tiple keys and much more! 

MS-DOS $149. 

OS/2, UNIX $249. 


Opt-Tech Data Processing 

P. O. Box 678 
Zephyr Cove. NV 89448 

( 702 ) 588-3737 


□ Request 127 on Reader Service Card □ 
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SDLC OR X.25 SUPPORT 
ON THE PC 

Use Sangoma SDLA card to provide 
cost effective, stable and easy to use 
SDLA or X.25 links from PCs running 
MS-DOS, UNIX, C-DOS etc. 

All real time communication functions 
performed by intelligent coprocessor 
card and microcode without interrupt¬ 
ing the PC. 

• Four independent addresses in SDLC 
mode. 

• Up to 250 Logical Channels in X.25 
mode. 

• Full function SNA emulation pack¬ 
ages also available. 

SangOmaTechnologies Inc. 

w (416) 474-1990 

□ Request 116 on Reader Service Card □ 
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Disk duplication 
All formats 

EVERLOCK copy protection 
Label/sleeve printing 
Full packaging services 
Warehousing 
Drop shipping 
Fulfillment 
48-hour delivery 
Consultation & guidance 




Star-Byte, Inc. 

2880 Bergey Rd Hatfield, PA 19440 


800-243-1515 


□ Request 327 on Reader Service Card □ 


MULTITASKING MSDOS 


Is your program scanning for 
keystrokes or other I/O events while 
analyzing data or displaying graphics? 

Convert your C program to a multitasked system 
overnight and simplify your job. IXOS, an 
MSDOS extension, converts functions into 
independent tasks for RyT and industrial control 
environments. 

80x86,80x87 & EMM support. Intertask 
messages and control. Preemptive scheduling. 
Selectable time slice periods. DOS critical error, 
Ctrl-C, Ctrl-Break handler. Divide by zero and 
80x87 exceptions stop offending task but not 
program. 

$ 100 . 

Schneider Software Systems 

3430 List Place #1006 
Minneapolis, MN 55416 
612-926-7979 

□ Request 349 on Reader Service Card □ 


Little Giant™ 

Newl Tiny Giant™ 

C Programmable Controllers 



We have miniature 
controllers with 
parallel I/O, solen¬ 
oid drivers, A/D 
and D/A convert¬ 
ers, clock, watch- 

dog, LCD inter- NS?**" $159 

face, RS485 serial, ” (Tiny Giant 

built-in power Digital, qty. 1) 

supply and much more! Use them to control 
anything. Our $195 interactive Dynamic C™ devel¬ 
opment system makes software development easy. 
These units have high performance and serious 
software support. We also have design-your-own- 
board core modules as low as $59. 


Z-World Engineering 

1340 Covell Blvd., Davis, CA 95616 USA 

(916) 753-3722 

Regular Fax: (916) 753-5141 
Automatic Fax: (916) 753-0618 
(Call from your fax, hear computer voice, use 
touchtone dial to request desired data sheets.) 


□ Request 279 on Reader Service Card □ 


32-bit Protected Mode 
386 C Graphics Library 

Intel 386/486 C Code Builder, 
MicroWay, Watcom & Zortech 
with Phar Lap 3861 ASM 
Mixed Raster/Vector, 
Scalable, Rotatable Font, 
Viewports, Global Scaling 
VGA, SVGA, 8514/A, VESA, 
Hercules Graphics Station 
through 1024x768x256 (8-bit), 
640x480x32k (16-bit), 
512x480x16.7m (32-bit), 
WYSIWYG HP-GLV PostScript 
$200 NO ROYALTIES 
FULL SOURCE CODE 
Gary R. Olhoeft 
P.O. Box 10870 Edgemont 
Golden, CO 80401-0620 
(303) 279-6345 or 877-3697 

□ Request 294 on Reader Service Card □ 


PostScript TSRs - Under 9K 
PSFX 3.0 TSR prints formatted output 
intended for Epson or IBM ProPrinter in 
PostScript. See Epson fonts, graphics, 
accents and boxes! Print portrait or land¬ 
scape, sizes up to 11x17. PostScript 
driver for databases, accounting. $85 
PSFXnet sloveU NetWare version adds 
banner pages and keeps statistics on pages 
printed by user. $99 

EPScreen Captures PC screens as tiny 
Encapsulated PostScript (EPS) files, 
ready for manuals, frames optional. Font 
included. Color files less than 10 K. $95 

Legend Communications, Inc. 

54 Rosedale Avenue West 
Brampton, ON. Canada L6X 1K1 
30 day guarantee 

(416)450-1010 (800)668-7077 

Recommended by QMS, GCC, OCfi. 

□ Request 191 on Reader Service Card □ 
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ONE STOP 
SOFTWARE 
DUPLICATION 


❖ Disk & Tape Duplication 
Documentation Printing 
*!• Package Assembly 
♦♦♦ Distributive Shipping 
♦»♦ Bulk Disk & Tape Sales 
♦♦♦ Optical Media Duplication 

(800) 222-0490 

FAX: (908) 462-5658 CT 

MEEHSdf 

819 Route 33 v —A J ^ 

Freehold, NJ 07728 

□ Request 110 on Reader Service Card □ 


DUPLICATION 

EQUIPMENT 


•!• Unattended Volume Duplication 
♦F PC Based & Standalone Units 
•!* Up to 180 disks/hour! 

❖ Easy Installation 

❖ Expandable & Field Upgradeable 
♦J* Maintenance Contracts 

CD ROM Development Systems 


(800) 222-0490 
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sembly language, but very few for 
BASIC and Pascal (and none at all for 
some other languages we would like 
to cover). I spend time each month 
scanning networks, conferences, and 
other magazines to locate potential 
authors (programmers, that is) and en¬ 
courage them to submit proposals to 
us. I am open to suggestions for better 
methods of soliciting authors. 

If you are an experienced BASIC 
programmer, you are a potential 
author. Magazines like TECH 
Specialist depend upon working 
programmers like yourself for copy, 
not upon professional writers. If you or 
someone you know has some ideas 
for magazine articles using BASIC, 
please get a copy of our Author 
Guidelines and submit a proposal. 
There is a Catch-22 here: we have lit¬ 
tle BASIC copy because we get no 
proposals and we get no proposals 


because readers rarely see BASIC 
copy in our magazine. I can only say 
we are working on the problem, but it 
is slow going. We most definitely are 
not pushing aside good BASIC articles 
because we want more room for C! 

Second, the question of accuracy. 
We do not depend solely on the 
author for accuracy, but we depend 
upon the author to a large extent. That 
is a matter of economics. We do not 
have a huge ad/article ratio, so our 
staff is quite small. The first line of 
defense for technical accuracy is the 
author's desire to do a good job. The 
second line of defense is myself. I 
have a fairly broad range of ex¬ 
perience with programming in general 
and the PC in particular, but this job 
quickly teaches you that you cannot 
be an expert in everything. For 
product-related articles, we also rely 
on a vendor review to catch factual er¬ 


rors. We dropped the ball on this ar¬ 
ticle and did not get a vendor review, 
so the mistake you found is our fault 
for not following our own procedures. 

The last line of defense against er¬ 
rors is our readership. Our goal is to 
eliminate errors but, when they hap¬ 
pen, we appreciate folks like yourself 
taking the time to write in and help us 
get the facts right. The collective talent 
and experience of our readership far 
exceeds that of the technical staff of 
any magazine. 

Thank you for taking the time to 
write us. One of the advantages of 
being a small magazine is that letters 
like yours really do get read, thought 
about, and remembered when we are 
making decisions. You have pointed 
out very valid problems and I hope we 
can improve enough so that you will 
not have to hesitate at renewal time 
next year, -rib 
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CopyControl 
COPY PROTECTION 


Control your profits with the copy protection designed 
with strength, user-transparency and compatibility. 

• Beats ALLthe bit-copiers & Dis-assemblers 

• No hardware plugs or special disks required 

• Encrypts your program & adds anti-debug code 

• Allows you to produce full function demos 

• Compatible with LAN, backups & disk utilities 

• Supports all Floppy & Hard disk formats 

• Allows you to change parameters remotely. 
Control when, where, and how your software is ran. 
Compatible with all IBM/DOS Computers. 

$595 Unlimited Version, 30 day Money back guarantee 
b Also available by Meter Count 
Free Demo & Into • COD • PO 


Tlicrocosm Inc. 


Drawer 0, Wellington, MO 64097 

(800) 237-8400 ext. 212 
(816) 934-8384 / Fax (816) 934-2617 


DEVELOPER'S LAB' 


Comprehensive CD-ROM multimedia 
production resource for PC and Apple 
developers. Proven design, management, 
data prep programming, premastering 
and manufacturing techniques. Important 
specs from leading companies. Demos of 
off-the-self tools for imaging, audio and animation. 

Sample applications demonstrate the power of 
our source tools in C, Turbo Pascal. 

PC or MAC.@ $395.00; 
Transportable version @ $425.00, 
Visa/MC accepted. 



SOFTWARE MART, INC. 

3933 Spitewood Springs Rd., Suite £-100 

Austin, Texas 78759 

(512) 346-7887 FAX: (512) 346-1393 
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LBAKN ’C* WITH BASE Learn C withl 
Audio Cassettes. LEARN WITH EASE allows 
the student to learn a language at their own 
pace. Learn at home or on the way to work. 
Easy to learn. Manual included. Beginning oi 
Advanced $69.95. C, C++, Basic, Pascal 
Fortran MASM and TASM availible. 

FAST LIB Assembly Language Libraries. 
Over 300 ready to run Assembly Language 
routines for C, Pascal Basic or Fortran. 
8129.95 per Library. 

pH® TIT Send cmds to Laser or Dot Matrix 
printer. Make files with multiple cmds. $59.95 

As a full service Systems & Software organization, 
we offer Professional Programming and Training at 
■easonable rates. Call for more information. (415) 
489-3388 

Add $450 per item S/H (CA + 7%) VISA & M/C 

Orders (800) 284-8489 
LM Systems & Software 
P.O. Box 1606 Union City, CA 94587 
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UPPER DECK EDITOR 

FOR WINDOWS 3.0 

A FAST, flexible, and robust text 
editor designed for the Windows 
environment. Edits files larger than 
64K. Regular expressions, search 
across multiple files, full 300-level 
UNDO, Windows clipboard sup¬ 
port, keyboard macros. Fully cus¬ 
tomizable. Introductory price $75 
plus $5 S/H (outside USA $15). CA 
residents please add sales tax. 30- 
day money-back guarantee. 

Upper Deck Systems 
P.O. Box 2751 
Escondido, CA 92033 
(619) 741-1075 
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Speed Up Development With: 
Programmer’s SUPER-MAINT^ 

The ‘Easier 1 Make Utility 

SUPER-MAINT builds your make and 
response files, remembers your command 
Bags, the make file name, and more! 
Multiple setups handle many projects at 
one time - even with different compiler 
brands. SUPER-MAINT-works for you so 
you can focus where you need to: on your 
programming! Still only $55 1+ Z50 iih, NY 

reiideata add sake. tax). Make Tile Builder Supports 
Microsoft. Borland. Aztec, Clipper, Mix languages: just 
"point and shoot" at code files you want in vour 
program! Free CompuServe Intro Pak With Purchase. 

EmmaSoft 
PO Box 238 
Lansing, NY 14882 

Voice: (607) 533-4685 
BBS: (607) 533-7072 

m 3 
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INGRAF 


supports video, printers, and plotters 


Over 100 routines 
give you complete 
control of axes, 
scaling, windows, 
and more 

Sutrasoft 

10506 P*rml«n Dr. 
Sugar Land, TX 77478 

Info: (713) 491-2088 

FAX: (713) 240-6883 


Great Graphics 
for Scientists and 
Engineersl 
FORTRAN, C, 
QuickBASIC, and 
Pascal. 


Source code. 
No royalties. 

$350 
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BGI PRINTER DRIVERS 


Hardcopy drivers for the Borland BGI 
graphics interface with full source! 

The BGI Printer Driver Toolkit provides BGI 
printer drivers for Epson 9 & 24 pin dot matrix, 
HP LaserJet II, and HP PaintJet printers. Use 
the BGI graphics interface to effortlessly 
generate high resolution hardcopy with Turbo 
C, C+ + , and Turbo Pascal. Full driver source 
provided for your tutorial pleasure. $89.95 . 

PC TIMER TOOLS 


Over 60 functions implement microsecond 
resolution timing, precision delays, extensive 
interrupt profiling, and full timer tick interrupt 
management. Supports TC, TC++, TP, and 
MSC. Full library source included. $49.95 


Prices postpaid USA, elsewhere add $4.00. 
VISA and MasterCard accepted. 


RYLE 

DESIGN 


PO Box 22 

Mt. Pleasant, Ml 48804 
517-773-0587 
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CHOICE INSTALL 

The BEST choice to install your 
product. Only one license fee for all 
of your products and all of the 
features you want including auto 
configuration, error handling, more. 

$149 plus shipping, demo disk $5. 
Source code +$100. Requires C 
Compiler (Microsoft, Zortech or Bor¬ 
land). Use it successfully or we’ll 
refund your money with no hassle. 
Order today, use it tomorrow, ship 
your product the day after. 

ChoiceWare 

8802 E. Broadway #211 

Tucson, AZ 85710 

(602)298-0666 
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"Highly recommended" -- J. Dvorak, PC Magazine 
"Outstanding... lets you explore the creative 
possibilities of fractals" - Amstrad PC Magazine 
"Quick and easy to master” - New Scientist 
"Impeccably lucid... operations are fast" - BYTE 

Fractal programming tutorial, 160-page Guidebook, 
Microsoft C programs, 200 + modifiable templates. 
Supports .DXF and .PCX files, CGA to Super-VGA. 

Orders/Info: CALL 802-888-5275 

Cedar Software box 5140 -Ri, Momsvme vr 05661 
□ Request 171 on Reader Service Card □ 


WinGoat 

The |ORF® Language is the Easy 
OOP language that supports same 
source, same data, same key¬ 
strokes, same menus and mouse 
for fancy DOS and fast Windows. 

• Program for DOS PCs and Windows 

• Translates to create true EXE files 

• Named after a Goat 

Shareware Interpreter 
and Tutorial.$10 

Registration, Manual 
Debugger, Editor ..$85 

C Translator for 
Borland' C++.$85 


The JORF Company 
25858 Elwood Road 
Colton, OR 97017 
(503) 824-JORF 
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FlexList for ANSI C 


A FlexList is a lot more 
than just a ready-to-run 
C linked list. It's a 
searchable/sortable/ 
implodable generic 
heterogeneous/ 
homogeneous hybrid 
stack-queue-list-array 
accessible by value, 
reference or node. 
Includes manual, 
K&R and ANSI 


source, only $79.95. 


PSW / Power Software 
P.O. Box 10072 
McLean, Virginia 22102-8072 
(703) 759-3838 
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NETWORK 

CONTROL 

LIBRARIES 

NETBIOS ROUTINES allows ac¬ 
cess to low-level network func¬ 
tions. Name, session, and 
datagram routines. Wait and no¬ 
wait options. $99 

NETWORK MASTER provides 
access to Netware internal func¬ 
tions. Complete network control 
from your compiled programs! $99 

Starlight Software 

P.O. Box 1090 
Wheeling, IL 60090 
(708) 394-0622 
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PROGRAMMING 
WITHOUT LANGUAGE 


DIRECT CODING 


Software made easy. 

Professionals, Scientists, 
Engineers, Technicians. 

M-Code $149.00 
A tool to write software for the 
8088 family, 8051 family 
and other processors 

Call or send for data sheet 

Box 4601 Carmel CA 93921 
Systems (408)625 9016 
□ Request 178 on Reader Service Card □ 


PARAGen Code Generator 


Code generator for the PARADOX Engine. 
Creates C, C++, Pascal and Pascal for 
WINDOWS engine code for accessing 
PARADOX applications. Easy to use point and 
shoot interface with numerous options (Brace 
Style, Optimization, Tab Expansion, etc). Most 
functions generated (Table Open, Get First 
Record, etc) are just a single function call. 
Produces separate code modules for each 
PARADOX table. New version allows you to 
create PARADOX tables from within PARAGen. 
DOS and WINDOWS 3.0 versions are 
available. Introductory price $99.00. Fully 
functional demo is available. 


Innovative Data Solutions 
4318 Stewart Court 
East Chicago, IN 46312 
(219) 397-8952 
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UNIQUE—your insider’s guide 
to the UNIX industry ' 


Every month Unique brings you: 

□ industry news and gossip 

□ market analyses 

□ unbiased, in-depth system and 
software reviews 

□ information on new startups and 
products 

Call (913) 841-1631 for your subscription. 
You’ll pay only $79 for a full year of the 
most complete insider news in 
UNIX and Xenix. 

R&D Publications, Inc. 

2601 Iowa St. 

Lawrence, KS 66046 
(913) 841-1631 
FAX: (913) 841-2624 


Is your product 
special? 

Is it so special only a 
programmer can 
understand it? 

Then advertise in 

TECH. .. 
specialist_ 

the journal for programming specialists. 

Call (913)841-1631 today 

to reserve space 
for your ad. 

Ask for Jeff (Western Region), 

Donna (Midwestern Region), 
or Ed (Eastern Region) 
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2601 Iowa St. 
Lawrence, KS 66046 
(913) 841-1631 FAX: (913) 841-2624 


FREE 

Product 

Information 

Use this postage paid 
card to stay up to date 
on products 
that affect 
your productivity. 

Just fill out the card at 
the right and 
drop it in the mail. 


UJ 

eg 

cc 

o 
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TECH. .. 
specialist 


Please help us serve you by 
answering the following: 

1) I program: 

□ for a living 

□ as a hobby 

□ as a manager 

2) I program in: 

□ MS-DOS 

□ Macintosh 

□ Xenix/UNIX 


3) I program most frequently in: 

□ Assembly □ BASIC 

□ Pascal □ C 

□ Other_ 

□ Please send me subscription 
information. 


2.9 


REQUEST READER SERVICE NUMBERS: 



ADDRESS 


CfTY/STATE/ZIP 


PHONE 


NO POSTAGE 
NECESSARY 
IF MAILED 
IN THE 

UNITED STATES 


BUSINESS REPLY MAIL 

FIRST CLASS MAIL PERMIT NO. 682 LAWRENCE, KS 

Postage will be paid by addressee 

TECH. .. 
specialis 

t 


2601 Iowa St. 

Lawrence, KS 66046-9950 












































BUSINESS REPLY MAIL 

FIRST CLASS MAIL PERMIT NO. 682 LAWRENCE, KS 
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2601 Iowa St. 

Lawrence, KS 66046-9950 


NO POSTAGE 
NECESSARY 
IF MAILED 
IN THE 

UNITED STATES 


FREE 

Product 

Information 


Use this postage paid 
card to stay up to date 
on products 
that affect 
your productivity. 


Just fill out the card at 
the right and 
drop it in the mail. 


I.II...II..II....I..I.II..I.I..I.I...I..II. 


, 1,1 


TECH. .. .. 

specialist. 



□ YES! Send me 12 issues of TECH Specialist for only $29! 

□ 2 years (24 issues) for $54 □ 3 years (36 issues) for $77 

□ Bill Me □ Visa □ MasterCard 




Number_ Exp. 

Signature_ 


Name 


Company 


Address 

City 

State 


Zip 


Country/Province/Mailcode 2 9 

Please allow up to six weeks for delivery of first issue. Orders outside the US must be prepaid in US funds. CANADA/MEXICO 
subscriptions are: 1 year - $38; 2 years-$63; 3 years - $86. Overseas subscriptions are: 1 year - $48; 2 years-$88; 3 years-$126. 
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BAT 


FIRST IMPRESSIONS LAST. 

INSTALL 3.0 GIVES YOUR SOFTWARE PRODUCT 
A PROFESSIONAL INTRODUCTION. 


Installation procedures that rely on 
batch files and DOS commands not 
only look amateurish but also have 
limited error handling capabilities. 
Today's users expect quality and ease 
of use from software — beginning the 
moment they open the package. A 
smooth, professional installation 
makes an important first impression. 

EVERYTHING YOU NEED 

INSTALL 3.0 is customized for your 
product with an ASCII text file called 
a "script file." INSTALL 3.0 comes 
with many sample script files that you 
can modify and use immediately. No 
programming is necessary to create 
most installations. However, C source 
code is included for your convenience 
and technical support is free. 

FAST AND SIMPLE 

Use INSTALL 3.0 to create an elegant 
installation procedure that will 
increase users' confidence in your 
product. INSTALL 3.0 takes advan¬ 
tage of available RAM for lightning- 
fast file transfers. All your documen¬ 
tation has to tell users is TYPE 
"A: INSTALL". 


INSTALL PRO 

• Builds distribution disk sets 
automatically 

• Creates a configuration file, 
containing all parameters for 
each disk set 

• Automatically builds INSTALL 
script files 

• Automatically formats disks 
(360K, 720K, 1.2M, 1.44M) 

• Uses a full screen, point-and- 
shoot interface for fast, efficient 
file tagging 

• Automatically splits large files 
across multiple diskettes 

• Literally cuts distribution disk 
building time from days to 
minutes for complex products 


KNOWLEDGE DYNAMICS 
CORPORATION 

Highway Contract 4, Box 185-H 
Canyon Lake, Texas (USA) 
78133-3508 
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PROVEN RELIABILITY 

INSTALL 3.0 has been used for over 
four years by some of the biggest (and 
smallest!) names in the industry, in 
the U.S. and abroad, to install millions 
of copies of their programs. Add your 
name to the list today. 

30 DAY MONEY-BACK 
GUARANTEE 

Free technical support. No royalties. 

MasterCard/VISA/COD/POs 

welcome. 

$399.95 INSTALL PRO 
$249.95 INSTALL 3.0 
$99.95 International Option 
$99.95 OS/2 Option 

SALES 

1/800-331-2783 ext. #0194 

International 
1/512-964-3994 
24 hour FAX 1/512-964-3958 
24 hour BBS 1 /512-964-3929 

CALL OR FAX BY NOON 
AND RECEIVE INSTALL 3.0 
TOMORROW! 










9:10. If you can imagine it, you can prototype it hst. 
With ToolBooks drawing tools. 


9:35. Create, size and move Helds to get exactly what 
you want without a line of code. 




9:45. Buttons and hotwords establish links to other 
pages and documents. Even to other applications 
through DDE. 


10:15. OpenScript is a lull-feattired OOP language 
with built-in syntax checker and debugger. 


10:58. Finished. An elegant solution quickly and 
easily. Next? 


Something for people 
who watch the clock. 


Software scheduling used to happen on a calendar. 

Now you can do it on a watch. 

Introducing ToolBook' 1.5. The software construction set that lets 
developers build Windows® programs faster than you can say C++. 

ToolBook’s graphical programming features enable you to quickly 
create prototypes. Instead of writing pages of complex code to create a 
screen, just draw the screen. Instead of time-consuming.exercises to 
change the screen, you simply click and drag. Instead of weekends at the 
office, spend them at home reading your favorite computer magazines. 

ToolBook includes OpenScript® An OOP language that has the 
muscle and agility you’re looking for in a serious development tool. Plus 
a built-in syntax checker and debugger to find and fix problems faster. 

Is there a limit to how complex you can get with something that 
works this easily? Yes. We’re just not sure what it is. Because if you can 
think of it, you can use ToolBook to create it. 

in fact, you can make it come alive.ToolBook’s Script Recorder 
creates animation sequences with a simple point and click. 

ToolBook offers other sophisticated graphical capabilities, too. You 
can take advantage of a whole range of colors, a clip-art library and 



graphics from other Windows applications. Even import 256-color 
bitmap images up to 1 megabyte in size. 

You can link ideas any way you want, too.ToolBook’s hypemavigation 
features let you make the connections. Once they’re made, you can go 
deeper and deeper into large volumes of information. Just by clicking 
a hotword or a button. 

You can extend OpenScript with Dynamic Link Libraries, which 
are created in other programming languages. So ToolBook is ideal for 
putting a graphical interface on your mission-critical applications. 

ToolBook also supports Dynamic Data Exchange, which allows you 
to build solutions by integrating multiple Windows applications. 

And just to get you up and running quicker,ToolBook comes with 
a suite of sample applications with all scripts intact. Incorporate 
them. Or take them apart. But you don’t have to start from scratch. 

If you’re interested in learning more, call 1 (800) 624-8999, Ext. 299R 
and ask for a brochure and the name of your authorized dealer. For 
international inquiries, send a fax to (206) 454-0672 requesting inter- 
national information. 

Then prepare for a time change. 


TOOLBOOK \p<Jsifi+i5TZix 

Software Construction Set For Windows 

110-IIOth Ave., N.E., Suite 717, Bellevue. WA 98004 


Asymetrix, ToolBook and OpenScript are registered trademarks of Asymetrix Corporation. Windows is a trademark of Microsoft Corporation. Where indicated, 
product and company names are trademarks/registered trademarks of their respective holders. 
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